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まえ が き 


本 書 は PC 一 9 8 0 0 シリ ー ズ の も つ グ ラフ ィ ク ス 機 能 を ,。 ハー ドウ ェ ア ・ ソ 
フト ウェ ア の 両面 か ら 解 析 し た 結果 を まとめ た も の で す . 

PC 一 9800 シ リー ズ の ハー ドウ ェ ア の 大 き な を 特徴 は ,。 グラ フィ ッ ク の 表示 。, 
お よび 捕 画 に GDC(Graphic Display Controller) と 呼ば れる 専用 LSI(z PD 
7220) を 採用 し た こと で す . GDC は , 表示 に 関し て , 画面 分 割 , 描画 に 関 
し て は , 直線 。 四辺 形 , 円 弧 の 描画 グラ フィ ッ ク 文 字 の 拡大 描画 な ど , 表示 , 
描画 と も 優れ た 機能 を 持っ て いま す が , 標準 と な る ソフ トウ ェ ア で ある Nass 一 BB 
AS1C し が , これ ら の 機能 を 充分 に 生か し て いな い の は 残念 な こと で す . そこ で 
本 書 で は , PC 一 9 8 0 0 シリーズ の ハー ドウ ェ ア の 機能 を 最大 限 に 引き 出す こ 
と を 1 つの 主題 と し まし た 。 グラ フィ ッ ク VRAM, パレ ッ ト レ ジス タ な ど グ ラ 
フィ クス 関連 ハー ドウ ェ ア と と も に 第 1 章 で 解説 し ます . 

PCー9800 シ リー ズ の ソフ トウ ェ ア 自 体 は よく 整理 され て いま す . PC 一 
9800 シ リー ズ で は Nss 一 BASIC を 支え る グラ フィ クス 機能 を L IO 
(Logical Input Output) お よび ,B I OS(Basic Input Output Subroutine) と 呼ば 
れる 2 層 の サブ ルー チン 群 と し て まとめ られ て お り , それ ぞ れ ソフ トウ ェ ア イ ン 
タラ プ ト を 用 いて 呼び 出す こと が で きる よう に な っ て いま す . これ ら 5 は, CP ノ 
M, MS 一 DOS か ら も 利用 で きま す . ハー ドウ ェ ア に より 近い BTIOS に つい て 
は 第 2 草 で て. BASIC より の L IO に つい て は 第 3 章 で 解説 し ます . 

Nss 一 BASIC の グラ フィ クス 関連 コマ ンド に つい て は フロ ー チ ャ ー ト を 掲 
載 し BASIC イ ンタ プリ タ の 仕組 み を 理解 で きる よう に 努め まし た . 特に , 新 
し い コ マン ド を 作ろ うと する 場合 に は 非常 に 参考 と な る で し ょ う . 


川 


第 5 章 に は 解析 結果 を 生か し た 応用 プロ グラ ム を 集め まし た . 5. 0 は GDC 
の 機能 を 生か し た BAS 1IC の 拡張 コマ ンド を , 5. 1 一 5. 3 は 3 次 元 グ ラフ 
ィ ク ス へ の 応用 例 で す . 5 . 1 で は Nsgs 一 BA S IC か ら 使 える 3 次 元 拡張 コマ ン 
ド を , 5. 2 で は MS 一 DOS と FORTRAN を 用 いた 応用 例 、 5 3 で は C 
P ノ /M 一 8 6 上 で の アセ ンプ ブラ に よる 応用 例 で す 。 

また , 本 書 の 執筆 に あたっ て は 伊藤 貢 司 氏 , 小松 伸行 氏 , 豊嶋 散 一 氏 の 各氏 に 
多大 な 協力 を 仰ぎ まし た . 伊藤 氏 に は 5. 2 の 応用 例 の , 小松 , 豊島 両氏 に は , 
5. 3 の 応用 例 の 作成 。 解説 を 賜り まし た . これ ら の プロ グラ ム に よっ て 本 書 の 
深み が さら に 増し , 価値 が 高め られ まし た こと を , ここ に 感謝 致し ます . 

読者 諸 史 が 本 書 を 通し て PC 一 9 8 0 0 シリ ー ズ の 再発 見 の 喜び を 味わう こと 
が で きれ ば 筆者 に と っ て 望 外 の 幸せ で す . 
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本 書 の 表記 法 


その ルー チン の 機能 を 簡単 に 説明 し ます . 

ソフ トウ ェ ア イ ンタ ラプ ト に よる 呼び 出し 方 法 を 示し ます . 

その ルー チン の エン トリ ・ ア ドレ ス を 示し ます . 

入力 条件 | その ルー チン を コー ル す る 前 に 設定 すべ き レ ジス タ , 引数 な ど を 示し 
ます 

引 数 | 入力 条件 の 中 で 特に 引数 テー ブル と 呼べ る も の が 存在 する 場合 , 入力 
条件 と し て 区 別して 示し ます . 

リタ ー ン し た と き に レジ スタ ,。 メモ リ に 意味 ある 値 が 格納 され る 場合 , 


それ を 示し ます . 
ルー チン を コー ル す る こと に よっ て 内 容 が 破壊 され る レジ スタ を 示し 
ます 


ルー チン の 機能 に つい て 詳細 に 説明 し ます . 

女 理 ルー チン の 内 部 で 行わ れ て いる 処理 に つい て 説明 し ます . 
その ルー チン を 使用 し た プロ グラ ム の 例 を 示し ます . 

注意 

本 書 で は , 参考 の た め 全 ル ー チ ン に つい て エン トリ ・ ア ドレ ス (絶対 番地 ) を 
示し まし た が , 絶対 番地 は 機種 の 相違 , ROM の バー ジョ ン に な っ て 異な る こと 
が あり ます . 本 書 に 示し た も の は PC 一 980 1F の 場合 で す . BIOS, 上 1 
O を 使用 する 場合 は 必ず ソフ トウ エア イン タラ プ ト を 用 いて くだ さい . また , そ 


れ 以外 の 内 部 サブルーチン を 利用 する 場合 は その ルー チン を 直接 コー ル せ ず , 目 
分 の プロ グラ ム に コピ ー し て 使わ れる こと を お 勧め し ます . 
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解析 に 使用 し た シス テム 


・PC-ー9801F2 シリ アル ナン バ 44004969A 
・PC-8853N 1 4 イン チ ・ カ ラー 専用 高 解像度 ディ スプ レイ 
・PC-PR20 1 日 本 語 シ リア ルプ リン タ 
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PC9801 は 、PC8801 と 同じ Nss--BASIC を 接 載 し 、CIRCL 
E、PAINT な どの 描画 機能 、 ワ ー ル ド 座 標 系 な ど 高 度 な グラ フィ クス を 実現 
し て 3 まず すず 。 

PC9800 シ リー ズ の ソ プ ル トウ アア は 
BIOS(Basic Input Output Subroutine)、 
LTIO(Logical Input Output) な ど 、 階 層 的 N88 一 BASIC 
整理 され て お り 、 機 械 語 で プロ グラ ム を 作る 
際 、R OM 内 の サブ ルー チン を 利用 し や すく 
な っ て いま す 。 右 図 に PC 9 8 0 1 の ソフ ト 
ウェ ア の 階層 構造 を 示し ます 。BASIC イ 
ンタ ブリタ と ハー ドウ ェ ア は 、2 層 の サブ ル 
ー チ ン 和 群 に よっ て 切り 離さ れ て いる わけ で す 。 
LIO は BASIC に 近く 、BIOS は ハー 
ドウ ェ ア に 密接 に 結び つい て いま す 。 

次 に 各階 層 の 特徴 と 主 な 処理 を 挙げ ます 。 





・ ワ ー ル ド 護 標 で 座標 を ・ ス テー トメ ント の 解釈 
指定 ・ 相 対 座標 か ら 絶 対 座標 へ の 
・ 相 対 座標 が 使え る 変換 
・ ビ ュー ポー ト が 使え る ・ ワ ー ル ド 座 標 か ら ス クリ ー 
ン 座標 へ の 変換 


・ スクリーン 座標 で 座標 を > ピュー ボー ト に よる タリ ッ 
指定 だ ン ガ ( 
・ ビ ュー ポー ト が 使え る ・ 復 合 機能 を 単 一 機能 に 分 解 


・ スク リー ン 座 標 で 座標 を |・ ス クリ ー ン 座標 か ら ア ドレ 
指定 ス へ の 変換 
・G で DC コマ ンド の 作成 
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|. 0 ハー ドウ ェ ア の 概要 


PC--ー9800 シ リー ズ の グラ フィ クス は 広 大 な グラ フィ ッ ク メ モリ と 多く 
の LS 1I で 成り 立っ て いま す . PC 一 9800 シ リー ズ の CR 芽 関係 の ハー ドウ 
ェ ア 概 念 図 を 次 に 示し ます . PC 一 9800 シ リー ズ は PC 一 880 0 シリ ー ズ 
と 同じ く グ ラフ ィ ッ ク 画 面 と テキ スト 画面 を 分 離し , グラ フィ ッ ク 画 面 は 3 2 KK 
バイ ト の プレ ー ン を 3 枚 持ち も,。 6 40X40 0 の 解像度 , 8 色 カ ラー を 実現 し て 
いま す . テ キス ト 画 面 は 2 枚 あ り ,. それ ぞ れ は , 8 K バ イト の テキ スト エリ ア と 4 
K バ イト の アト リ ビ ュ ー ト エリ ア か ら な っ て いま す . 


カラ 


レジ 全数 フイ ン 
プラ ンク F/F 
アト リピ ビュ ー 9 


サムネ レー ト CC ドア ブフ ャ ド テ 








L S I お よび その 他 の ハー ドウ ェ ア の 多く は , IO 空間 に 割り つけ られ , ソ 
フト ウェ ア か ら の 機能 設定 , 変更 を 可能 に し て いま す . 各 ハ ー ド ウェ ア の 1』/O 
アド レス の 一 覧 表 を 次 に 示し ます . 


10 アド レス 一 覧 表 

まま 人 ざ サオ ント 和 や 務 (GDC) 
(テキ スト 画面 用 ) 

上 モー ド フ リッ プ フ ロ ッ プ コン トロ ー ル 

上 王 ECzaemsg 軸 
CRT ン MS (マス ター スラ イス ) 
グラ フィ ッ ク デ ィ ス プレ イコ ント ロー ラ (GDC) 
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以下 の 節 で は , それ ぞ れ に つい て 解説 し ます . 






















ドド こす で デ フラ フィ イ ザク 「\ 半 A 村 パピ ビ チ オ RA 間 ) 


グラ フィ ッ ク VRAM と は , 画像 情報 を 画面 上 の 
1 ドッ ト を メモ リ の 1 ビッ ト に 対応 させ て 蓄え て お 
く メ モリ の こと で , フレ ー ム バッ ファ と も 呼ば れ ま 
す . この メモ リ が 普通 の メモ リ と 異な る の は , CP 
U の バス に 接続 きれ て いる だ け で な く 〈《⑥, GDC ( グ 
ラク イッ クア ディス プレ イコ ント ロー ラ ) の バス に も 
楼 続 きれ て お り , CPU と 独立 に ビ D じ が アド レス 
を 与え て 内 容 を 読み 出し , それ が ビデ オ 信 号 に 変換 
され て 出力 され る 構造 に な っ て いる こと で す . この 
よう な 環境 に ある メモ リ を グラ フィ ッ ク VRAM と 
呼ぶ の で す . 

PC 一 9 800 シ リー ズ に は , この グラ フィ ッ ク 
VRAM は , CPU アド レス A8000H-ーBFF 
FFH の 9 6KK バ イト の 領域 に あり ます . これ ら は , 
2.2 KK バイ 下 ご と に 3 すさ つ に 分 けち れ て お サ : それ ぞ 
れ を プ ブレー ンド,。 2。 3 と 呼び ます ,。 GDC が 表示 





列 
変 
換 


V R AM 概念 図 カラ ー の 場合 1 
白黒 の 場合 








の た だめ 枯 用 ララ イッ カ VRAM を アク も セ る す る や も やき に は この 3 つの プレ ー ン は 
同じ アド レス 空間 に ある よう に 作ら れ て お り , 同時 に 3 つの プレ ー ン か ら 内 容 が 
読み 出さ れ ま す . この それ ぞ れ の 出力 を カラ ー の G, R, B に 対応 きせ る こと に 
よっ て 8 色 の カラ ー を 実現 で きる わけ で す . 

さき て , この よう に 1 プレ ー ン あたり 3 2 KK バイ ト の グラ フィ ッ ク VRAM を 持 
っ た PC 一 9 8 0 0 シリ ー ズ は , どれ だ け の 解像度 を 実現 で きる で し ょ うか . メ 
モリ の 1 ビッ ト の 0, 1 が 画面 上 の 1 ドッ ト の 明暗 を 表わし ます か ら , 3 2 K バ 
イト (厳密 に は 327 6 8 バイ ト ) で は , 32768X68 テ 26214 4 の ドッ 
ト を 表現 で きま す . 横 を 6 4 0 ドッ ト と し ます と , 縦 は 262144/640= 
4 0 9. 6 と な り ま す . 実際 は , 最高 6 4 0X4 0 0 で すか ら ほ ん の 少し 使っ て 
いな い メ モリ が ある よう で す . 

CPU と GDC は 独立 に バス を 持っ て お りさ ら に GDC は 描画 時 と 表示 時 で は 
メモ リ に 対す る アド レス が 異な っ て いま す . ここ に 示す アド レス は , GDC を 直 
接 制御 する と き に 重要 で す . 


各 プ レー ン の 先頭 アド レス 


GDC ア ドレ ス ※ 
CPU アド レス 
| 間 時 | 時 


※GDC は 1 ワー ド が 1 6 ビッ ト で ある . 

















画面 上 の 座 棲 と メモ リ と の 対応 は , GDC に 設定 する 表示 アド レス で 自由 に 変 
える こと が で きま す が , N88 一 BAS 1IC で は 画面 モー ド に よっ て 次 の よう に な 
り ま す . 
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①6 40X4 0 0 カラ ー モ ー ド 


3 el 


=8X80 バ イト 


⑤ も 6 40X200 力 ラモー ドド 


第 1 画面 (LOWER) 


第 2 画面 (UPPER) 
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③6 40X4 0 0 白黒 モー ド 


A8000 A804F 


AFCBO AFCFF 


④6 40X2 0 0 白黒 モー ド 


LOWE R グ ルー プ 


B0000 BO04F B8000 


第 1 画面 


UP PE KR グループ 


4 ABE80 B3E80 BBE80 


AFCFF 


第 4 画面 
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1 バイ ト 内 で の 各 ビ ッ ト と 画面 上 の ドッ ト と の 対応 を 次 に 示し ます . 
画面 上 


1 バイ ト 
GDC か ら 見 た 場合 は ビッ ト が 逆順 に な り ま すか ら 注 意 し て 下さ い . 
画面 上 


GDC1 ワ ー ド =2 バイ ト 


PC 一 98 0 1E ン ドン M で は , グラ フィ ッ ク RAM が さら に 増やさ れ , 2 倍 
の 1 9 2K バ イト と な っ て いま す .。 これ は PC 一 9 8 0 1 と 同じ アド レス に も う 
1 組 9 6K バ イト の メモ リ が 置か れ て お り , これ ら を バン グ ク 切り換え で 使用 する 
も の で す . 
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ゲン ボイン ド で ヒビ ウ キ 


友治 字 R 0 M の 実装 を 調べ る 方 法 

PCー980 1F ノ M で は , 漢字 ROM は 標準 実装 と な っ て いま す が , PC 一 
9 8 0 1 プア E で は オプ ショ ン で す . わか りや すき の 点 か ら , 日 本 語 表示 は 望ま し 
い の で す が , ハー ドウ ェ ア に よっ て は 漢字 R OM が 実装 きれ て いな いこ と も 考え 
られ , 広く 使わ れる ソフ トウ ェ ア を 作る 上 で 問題 と な り ま す . そこ で プロ グラ ム 
中 で , 自動 的 に 漢字 R OM の 実装 を チェ ッ ク し , な い 場 合 は カタ カナ , 英文 等 で 
メッ セー ジ を 出す と いう 方 法 が 考え られ ます . ここ で は , その 漢字 R OM の 有無 
の チェ ッ ク 方 法 を 紹介 し まし ょ う . | 


日 本 語 表示 の た め に は , 実は 漢字 ROOM だ け で な く , テキ スト 用 ビデ オ R AM 
の 増設 が 必要 な の で す . 漢字 R OM ボー ド に は , 漢字 ROM と ビデ オ R AM が 載 
っ て いる の で す . テキ スト 用 ビデ オ R AM は , セグ メン ト A 0 0 0 か ら に あり 
ます が , ASC 1 TI コー ド だ け の 表示 に は 1 バイ ト で すむ た め , 偽 数 ア ドレ ス だ 
け を 使い ます . つま り , 漢字 ROM ボ ー ド の 実装 され て いな い 機 種 は 奇数 アド レ 
ス に メモ リ が 実装 され て いな い の で す . で すか ら , この メモ リ を チェ ッ ク す れ ば 
いい こと が わか り ま す . 

具体 的 に は 実 ア ドレ ス AO O 0 1H に 0 0 と FFH を 書き 込ん で 読み 出せ れ 
ば 実装 が わか り ま す . 


この BASIC プ ログ ラム は , 漢字 R OM の 実装 を チェ ッ ク し , あれ ば "Kanii 
ROM Ari.。 な けれ ば , “Kanji ROM Nashi.” と CR に 出力 し ます . 


] ! 炒 氷 炒 玉 玉 玉 米 玉 来 氷 来 来 来 来 氷 来 来 来 氷 来 氷 来 来 来 来 氷 氷 来 氷 氷 氷 来 氷 玉 氷 氷 氷 来 氷 氷 玉 玉 
e: ま もう 挟 KANJI ROM GA ARU KA NAIKA O SHIRABERU ネ 
3  ) 素 玉 水 来 来 来 来 玉 来 来 来 来 氷 来 来 氷 来 氷 氷 玉 来 求 来 来 氷 来 玉 来 玉 氷 求 氷 氷 氷 氷 床 氷 氷 氷 氷 末 来 玉 ※ 
10 DEF SEG=&HA000 : ? チ キス ト VRAM / ノ エリ ア ニニ セッ ト 
20 ' 1 ハバ "ンチ ニ 0O ト &hEFF ヲ カキ コミ 、 ヨミ タ " ス 

30 FOR I=&HFF TO 0 STEP -&HFF 

40 POKE 1,1I 

50 TEF PEEK(1)<>1I THEN 80 

60 NEXT I 

70 PRINT "KANJ1 ROM ARI.":END 

80 PRINT "KANJ1I ROM NASHI.":END 
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し 20yMMeA ト アスタ 


パレ ッ ト 番 号 か ら , カラ ー コ ー ド へ の 対応 を 定義 する レジ スタ で す . PC 一 9 

8 0 0 シリ ー ズ で は , 8 色 の カラ ー を 使用 で きま す が , それ は , 前 述 の 3 つの プ 

レー ン 上 に 書か れん て いる ビッ ト が , その まま , 光 の 3 原色 に 対応 する の で は な く , 

3 つの プレ ー ン 上 に 書か れん て いる ビッ ト か ら 決 まる 値 (パレ ッ ト 番 号 と 呼ぶ ) と , 
実際 の 色 と の 対応 を 1 つ ひ と つ 定 義 す る こと が で きま す . それ を 行なう の が パレ 
| ッ ト レ ジス タ で す . 


GVR AM 上 の ビッ ト 状 態 
B800 0 日 


レジ スタ 内 容 


パレ ッ ト レ ジス タ 





白 時 モ ー ド の と き に は , また , パレ ッ ト レ ジス タ は , 白黒 画面 (プレ ー ン 1 3) 
を 合成 する 働き を し ます . 動作 は カラ ー モ ー ド の と き と ほ と ん ど 同 じ で す . プレ 
ー ン 1 一 3 か ら パ レッ ト 番 号 に 対応 する パレ ッ ト レ ジス タ の 内 容 が 出力 され ま 
す . た だ し , 出力 され る カラ ー コ ー ド と 実際 の 色 と の 対応 は , 次 の よう に な り ま 
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す 。 普通 , 白黒 モー ド で は , カラ ー コ ー ド は , 0 と 7 の み を 使い ます . 


カラ ー コ ー ド と 実際 の 色 と の 対応 


実際 の 色 
カラ ー モ ー ド 白黒 モー ド 





日 黒 モ ー ド に お ける パレ ッ ト 番 号 (0 一 7 ) は , 次 の よう な 意味 を 持ち ます . 


0 : 3 つの プレ ー ン と も OFF の ドッ ト P1・P2・P3 


1 : プレ ー ン 1 の み ON の ドッ ト P1・P2・P3 
2 : プ レー ン 2 の み ON の ドッ ト P1・P2・P3 
3 : プ レーン 1 と 2 の み ON の ドッ ト P1・P2・P3 
4 : プレ ー ン 3 のみ ON の ドッ ト まま る * ま 2・ ぞ 3 
5 : プレ ー ン 1 と 3 の み ON の ドッ ト P1・P2・P3 
6 : プレ ー ン 2 と 3 の み ON の ドッ ト P1・P2・P3 
7 : 3 つの プレ ー ン と も ON の ドッ ト P1・P2・P3 
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ルー ーー と の そこ 
ンー に ( と の 3 こさ 」 





図示 する と 次 の よう に な り ま す . 


0 


ド 1 
P 1 : プ レー ン 1 


P 2 : プ レー ン 2 
P 3 : プ レー ン 3 


NX ジ 0 一 7 : ペレット 番号 


る 3 


この 関係 か ら 各 プレ ー ン の 合成 を する 場合 の , パパ レッ トレ ジス タ の 設定 方 法 が 
わか り ま す . た と えば , プレ ー ン 1 の み を 表示 する 場合 は , パレ ッ ト 番 号 1, 3, 
5, 7 に 白 を , その 他 に 黒 を 設定 し ます , プレ ー ン 1 と 2 を 合成 表示 する 場合 は , 
パレ ッ ト 番 号 1, 2, 3, 5, 6, 7 に 白 を , その 他 に 黒 を 設定 し ます . 次 に 一 
覧 表 を 掲げ ます . 


2 パレット レジ スタ の 値 
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この 表 に は , N88 一 BASIC の SCREEN 文 で も で きる も の の み を 示し ま 
し た . 8 個 の パレ ッ ト レ ジス タ に , 白 か 黒 か 設定 する 組み 合わ せ は 2 の 8 乗 三 2 
5 6 通り あり ます . つま り , まだ 他 に 2 4 8 通り の 組み 合わ せ を 設定 で きま す . 
プレ ー ン 1 と 2 の 重なっ た 部 分 の み を 表示 する こと も で きま す . 


パレ ッ ト レ ジス タ は 。 1 /O 空 間 の ,。 0A8H, 0AAH, 0ACH, 0AE 
HH に あり ます . 各 ア ドレ ス は , 上 下 各 4 ビッ ト が 1 つの パレ ッ ト 番 号 に 対応 し て 
いま す . パレ ッ ト レ ジス タ に は , 書き 込み の み で きま す . 


パレ ッ ト 番 号 


上 位 4 ビ ッ ト 下位 4 ビット 





1 つの アド レス に 2 つの パレ ッ ト レ ジス タ が 割り 当て られ て いる の で , 一 方 を 
変え よう と する と 他方 も 同時 に 変わ っ て し まい ます . 一 方 の み 変 える た め に は , 
前 に 書き 込ん だ 値 を 覚 を て お いて 使う し か あり ませ ん . BASIC あ る い は グラ 
フィ ッ ク L IO を 使っ て いる 場合 は , L IO の ワー クエ リア に 値 が 保存 され て い 
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ます の で , それ を 使う こと が で きま す . た だ し , パパ レッ トレ ジス タ の 並び が , ア 
ウト ブッ ト ア ドレ ス の 場合 と は 異な る の で , 注意 し て 下さ い . 


アド レス パレ ッ ト 番 号 
ャ グ メ ント (6 0H) | 上 位 4 ビ ッ ト 下位 4 ビッ ト 





@ 機械 語 に よる 直接 制御 
例 - パレ ッ ト レ ジス タ 3 に カラ ー コ ー ド 2 を , パパ レッ トレ ジス タ 7 に カラ ー コ ュ 
ー ド 5 を 設定 し ます . 

MOV AL, 25 是 

OUT 0A8H, AL 


@B IO0S に よる 制御 

2. 4 の カラ ー パ レッ ト の 設定 に 相当 し ます . この ルー チン で は , 4 バイ ト の 
保存 人 域 の 内 容 を パレ ッ ト レ ジス タ に 転送 する だ け で す . 保存 領域 は , 上 記 の L 
10 の ワー クエ リア を 利用 する の が 便利 で す . パレ ッ ト レ ジス クタ 全体 を 初期 化す 
る と き な ど は , この BIOS を 使う の が いい で し ょ う . 


@| 10 に よる 制御 

カラ ー モ ー ド か 日 黒 モ ー ド か で , 使用 する L IO ルー チン が 異な り ま す . カラ 
ー モ ー ド の 場合 は , 3. 5 の GCOLOR 2 が 相当 し ます . BIOS と 違い 。 パ 
レッ トレ ジス タ の 1 つ だ け を 変更 する こと が で きま す . 白黒 モー ド の 場合 は , 3. 
2 の GSCRKEEN の ディ スプ レイ 画面 の パラ メー タ が 相当 し ます . 
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LGC (ダラ スィ ルル は に ロ 
ー ラ ) 

GDC は 表示 。 お よび 描画 の 機能 を 持つ L S I で , PC 一 98 0 0 シリ ー ズ で 

は テキ スト 画面 用 と , グラ フィ ッ ク 画 面 用 と に それ ぞ れ 1 つ 使 われ て いま す . 


口 1 プ 0 アド レス 
GDC は |) ステ デー ネス レジ スク タ 。 デー タカ レジスタ,。 パラ メー カレ ジス ア 、 コマ 


ンド レジ スタ の 4 つの レジ スタ を 持っ て いま す . 各 レ ジス タ の 1 0 アド レス を 
次 に 示し ます 、 


か 







パラ メー タデ ジス タ WRITE 


ステ ー タ スレ ジス タ 。 デー タレ ジス タ は 読み 出し 専用 で , パラ メー タレ ジス タ , 
コマ ンド レジ スタ は 書き 込み 専用 で す . 


唱 GDC の コマ ンド 

CDC の 制御 は 。 コマ ンド レジ スタ に コマ ンド を 書き 込む こと に よっ て 行ない 
ます . コマ ンド に よっ て は さら に パラ メー タ を 必要 と する も の が あり , その 場合 
は コマ ンド に 続い て パラ メー タレ ジス タ に パラ メー タ を 書き 込み ます . GDC に 
は 次 に 示す 2 1 種類 の コマ ンド が あり ます . コマ ンド は 大 きく わけ て , 動作 制御 
ュ コマンド, 表示 制御 コマ ンド , 描画 制御 コマ ンド , 映像 メモ リ 制 御 コ マン ド が あ 
り ま す が , テキ スト 用 GDC は 動作 制御 , お よび 表示 制御 コマ ンド の み を , グラ 
フィ ッ ク 用 GDC は さら に 描画 制御 コマ ンド を 使っ て いま す . 
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[ 」 コ マン ドド 一 覧 


動作 制御 コマ ンド 


SYNC 動作 モー ド , 同期 信号 
波形 の 定義 


















スレ ー ブ プ 動 作 の 選択 












表示 制御 コマ ンド 


示 の 開始 の 指示 | C 


| zo 拡大 表示 係数 撤 大 | C 
描画 係数 の 設定 

SCROLL 表示 開始 アド レス , 
表示 領域 の 設定 




















CSRFORM| 文字 表示 時 の カー サ 
形状 等 の 設定 


PITCH 映像 メモ リ 水 平方 向 090 
ワー ド 数 の 設定 


LPEN'? ライ ト ペン ・ ア ドレ ス の | 
読み 出し 指示 







生 (1) コマ ンド ・ コ ー ド は 6BH ま た は 0DH の 8 ビ ピット を 使用 し ます 。 
生 (2) LPEN コ マン ド の 発行 後 LADL, LAD, LADn, の 順に CPU が 読み 出す こと が で きま す 。 
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描画 制御 コマ ンド 


動 作 内 容 


描画 に 必要 な 各種 パ 
ラメ ー タ の 設定 


直線 , 四辺 形 mt 1 ドッ ト 


TEXTW ビデ ャ マー テキ 


CSRR(3) | 描画 アド レス の 読み 
出し 指示 





注 (3) CSRR コ マン ド の 発行 後 EADr, EAD, EAD』, dADr, dAD』 の 順に CPU が 読み 出す こと が で きま す 。 
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映像 メモ リ 制 御 コ マン ド 


マン ド 


動作 内 容 C/P 








そり へ の 書き 込み 準備 P1 


| 
| | 


READ | 映像 メモ り ・ デ ー タ ^ C 





読み 出し 指示 





_DMAW | 映像 メア そり へ の DMAI C 
| 転送 開始 の 指示 








| DMA 転 送 開始 の 指示 


| ー ーーー 1 ーー 一 
WRITE パラ メー タ の 映像 メ | C 

| 

| 

| 











前 后 T ーー 
NR。000889 間 2206Korccbom。// wscostb 電 95 人 主 oe 。 

| 
1 | Wー テ 。 0 =ーMoD 一 > 
ゴイ 上 で 1 電 mmacFrm_Tr_jopー 
妖 ューMOD- 一 テ 


1 | 0 | 1 テーWwLH 一 > : 
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[]」GDC コ マン ド の 説明 と パラ メー タ の 設定 法 


GDC に 対す る コマ ンド お よび 
パラメータ を 設定 する と き は , ま 
人 
を 書き 込み (OUT &HA2, 
XX 等 )。 次 に パラ メー タレ ジス 
タ に パラ メー タ を 必要 な 数 だ け 続 
け て 書き 込み ます (OUT &H 
A 0 , XX 等 )、 パ ラメ ー タ は 常に 


すべ て 書き 込む 必要 は あり ませ ん . 
残り の 部 分 は 前 の 値 が 使わ れ ま す . 


< 表示 関係 コマ ンド > 

。 信人 侍 も 当 マ ンド 

表示 動作 モー ド , 縦 、 横 の 文字 
数 、 ライ ン 数 な どの 設定 を し ます . 
パラメータ の 一 覧 表 を 右 図 に 示 し 
ます . CR を 設定 し た と き は 必 
ず P ITC 是 コマ ンド を 続い て 行 
な っ て 下さ い . 


(|) DE 表示 の 開始 ・ 停 止 





が} 


で 
トゥ 


3 


"で 
A、 


で 
| 


で 
この 


| 「 
2 っ | 
で 


で 
= 


表示 を 停止 する 
表示 を 開始 する 


還 
加 


FIIIplels 


C/R 


ーー YSt ヤー ツ ーーーーー RS 


1 が の mr ツー ナッ 


ーー VS 


where まま は ーーーーーーー 


L/Fr 


| 


ー ル /Fi 


パパ ラメ ー タ を 設定 する と き は , 画面 が 乱れ な いよ うに , 通常 は 表示 停止 と する . 


(2) CHR, G.、 文字 モー ド , グラ フィ ッ ク モ ー ド 等 の 選択 


文 吉 // ゲラ フィック 揚 葬 モー ド 


文字 モー ド 


ググ "ーーP 
設定 で きま せん 
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テキ スト 用 GDC (アド レス 6 0 H) は 文字 モー ド , グラ フィ ッ ク 用 GDC ( ア 
ドレ ス A0H) は グラ フィ ッ ク モ ー ド と する 。. 
(3) F 描画 タイ ミン グ 







フラ ッシュ 捕 画 
フラ ッシュ レス 捕 画 





ノン ・ イ ンタ レー ス 
設定 で きま せん 

イン タレ ー ス 

イン タレ ー ス ・ シ ュ リ ンク 





テキ スト 用 GDC, グラ フィ ッ ク 用 GDC と も ノン ・ イ ンタ レー スモ ー ド を 使 
いま す . 


(5) D メモ リ ・ リ フレ ッシュ 







リフ レッ シュ 動作 無し 
リフ レッ シュ 動作 有り 





テキ スト 用 GDC で は リフ レッ シュ な し , グラ フィ ッ ク 用 GDC で は リフ レッ 
シュ ゆり で 七 ま すず - 


(6) CR | 行 あ た り の 表示 文字 数 
CR= 文 字数 一 2 と いう 関係 に な |00000000 
っ て いる の で , テキ スト 画面 で 横 80 |00000010 
字 の 場合 は , 80-ー2=78 (16 進 |00000100 
て は 宮寺 ナ と も し ます 、 ゲラ フィ ッ ク 
画面 で は 1 6 ドッ ト で 1 文字 と 数 え , さも ます まな ね 
6 40 ド ッ ト の 場合 は 640 プ 16 |11111110 
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ー2=38 (1 6 進 で は 2 6 H) と し ます . CR に は 偶数 し か 設定 で きま せん . 
この パラ メー タ を 設定 し た と き は 必ず 後 で PITCH コマ ンド を 行なっ て 下さ い . 
本 パラ メー タ お よび 以下 の パラ メー タ に よっ て , 水平 同期 信号 は 次 の よう に 生 
成 さ れ ま す . 


HBLANK 


HSYNC 





この よう に , HFP, HS, HBP, CR の 合計 が 水平 の 1 周期 と な り ま す . 
それ ぞ れ 文字 数 が 単位 と な っ て いま す が , 1 文字 の 周期 は ディ スプ レイ に よっ て 
異な り 。 PCー980 0 シリ ー ズ で は 次 の 値 と な っ て いま す . 


周期 (チキ スト 用 GDC) 周期 (グラ フィ ッ ク 用 GDC) 
専用 高 解像度 0 3 導 M 色 記 だ た 導 。: 生 導 だ 
標準 解像度 0. 56zSEC 3:ー キ る る お で 


また , 水平 同期 周波 数 は 使用 する ディ スプ レイ に よっ て 決ま っ て いま すか ら , 
上 記 パ ラメ ー タ の 合計 は それ を 満た す よ うに 設定 し な く て は な り ま せん . 例 えば , 
水平 同期 周波 数 を 2 4. 4 kHzZ と する 水平 1 周期 は 1 プ 24. 4kHz=41 
SEC と な り ま すか ら , 1 周期 の 文字 数 の 合計 は グラ フィ ッ ク 用 GDC の 場合 , 
41/0. 76= ニ 54 と な り ま す . 一 般 に ディ スプ レイ の 水平 同期 周波 数 は 次 の 
よう に な っ て ゃ \ ッ まず 










水平 同期 周波 数 水平 1 周期 





専用 高 解像度 24.4kHz 4 1/SEC 
標準 解像度 ちこ ーー そそ あ 1k 寺 る まき 。 5uSEC 
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(7) HS 水平 同期 信号 の 幅 





2 文字 以上 を 設定 し ます . 


(8) HFP CRT 管 面 右 方 の 非 表 示 区 間 


000000 
000001 
000010 


打 要 和 愉 乾 . 
たよ まあ 





4 文字 以上 を 設定 し ます . 


(9) HBP CRT 管 面 左 方 の 非 表 示 区 間 


000000 
000001 
000010 


半 雪 党 和 呈 
まあ まま 


3 文字 以上 を 設定 し ます . 
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ーーーーーーーー ーーーーーー- ーーーーーー ーーー ーー ーーーーーーー ーーーーーーー ーーーーーーーーーーーーー- 一 ーーーーーー ーーーーー ーーーーーーーー パ ーーーーーーー- ニ ーーー*ーーーー ーー ニーーーー ーー 


(IO) VS 垂直 同期 信号 の 幅 





垂直 同期 信号 は 本 パラ メー タ お よび 以下 の パラ メー タ に よっ て 溢 の よう に 生成 
され ます . 


our | トト ーーーー Hf | し 上 


VSYNC 
8 が SE 天 重 MMSKTT 


VS, VFP, VBP, し ノン F ド の ライ ン 数 の 合計 が 垂直 の 1 周期 と な り ま す . 
ディ スプ レイ の 垂直 同期 周波 数 、 水平 同期 周波 数 か ら 合計 の ライ ン 数 は 決ま り ま 
す . 垂直 の 1 周期 の 水平 の 1 周期 で 割っ た も の が 合計 ライ ン 数 に な り ま す . 例え 
ば , 垂直 の 1 周期 を 1. 8 0 5mSEC, 水平 の 1 周期 を 4 1zSEC と する と , 
ライ ン 数 =18050/41=44 0 本 と な り ま す . 





垂直 1 周期 ライ ン 数 


1..。.8.05mSEC 440 本 
1、666mSEC 2 6 2 本 





(Il) VFP CRT 管 面 下方 の 非 表示 区 間 
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000000 
000001 
000010 


属す すす 0 
No 寺 ます も まま 


000000 
000001 
000010 


3 よ と た よ 0 
4 当 あ 9 209 





(I3) L/F | 画 面 あ た り の 表示 ライ ン 数 


0000000000 
00000000011 
0000000010 


0000000011 


まま 
を 





設定 例 
上 記 パ ラメ ー タ の 設定 に 当たっ て は テキ スト 用 GDC と グラ フィ ッ ク 用 GDC 
の 同期 を と る こと に 注意 し て 下さ い . つま り , 水平 同期 関係 で は , テキ スト 用 の 
文字 数 が , グラ フィ ッ ク 用 の 文字 数 の 2 倍 と な る よう に , 垂直 同期 関係 で は , テ 
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キス ト 用 の ライ ン 数 と , グラ フィ ッ ク 用 の ライ ン 数 が 一 致す る よう に 設定 し た 下 
さい . 次 に 専用 高 解像度 アディ スプ レイ の 場合 の 標準 的 な 設定 例 を し ます . 


テキ スト 用 グラ フィ ッ ク 用 
8 0 文字 4 0 文字 

8 文字 4 文字 

1 0 文字 5 文字 


8 文字 4 文字 
8 ライ オン 8 ライ ン 
7 4 4 ン 
を る ケス オア 5 ラオ シン 
を 人 0 ライ オン 4 0 0 ライ ン 





2 人 二 林 着 仙人 生 が 〒 
VRAM 上 の 1 行 の 文字 数 を 設 
定 し ます . 表示 文字 数 と 同じ 場合 
は SYNC コマ ャ 失 の / 上 きん 
周 じ に な り ま す . と だ より どる を 
大 基く と あこ と に よみ ダ みて で て 。 \ 拓 大 
M 上 の 1 部 の み を 画面 に 表示 で き 00000000 


00000001 


P は C/R と 違い , 文字 数 が そ OO 
の まま 値 と かなり ます か ら 注 意 し て ' 
下さ い . 


11 1 1 し 10 
も ルト よし た も た 1 は 
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3 生き T 有人 すそ アキ 


表示 を 開始 し ます . 
また は 
0 0 0 0) 1 1 0 1 
使用 例 


(1) OUT &H62, &HD (テキ スト 画面 の 場合 ) 
(2) OUT &HA2, &HD (グラ フィ ッ ク 画 面 の 場合 ) 


4 な OF マタ ヤ 


表示 を 停止 し ます . 
C ・ 半 、 00E 2H906 AS Neso  3 
使用 例 「 


(1) OUT &H6 2。 &HC (テキ スト 画面 の 場合 ) | 
(2) OUT &HA2。 HHC (グラ フィ ッ ク 画 面 の 場合 ) 
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人 全 本 飲 び EE し まき そ シギ 
表示 開始 アド レス と 表示 領域 の 大 き さ を 設定 し ます . 画面 分 割 を する に は この 
コマ ンド を 用 いま す . テキ スト 画面 は 最大 4 つ に , グラ フィ ッ ク 画 面 は 最大 2 つ 
に 画面 分 割 で きま す . パラ メー タ の 格納 は 他 の コマ ンド と 違い , 任意 の 位置 か ら 
格納 で きま す . 格納 を 開始 する パラ メー タ の 位置 (アド レス ) を コマ ンド コー ド 
の 下位 4 ビッ ト の RA で 指定 し ます . 


1) テキ スト 画面 の 場合 





(2) グラ フィ ッ ク 画 面 の 場合 
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3 の >) OO 必 4C ト も うら 己 の 


S AD は 表示 開始 アド レス , SL は 画面 分 割 領域 の 大 き さ を 示す ライ ン 数 で す . 
S AD は な DC の アド レス で す の で 注意 し て 下さ い . テキ スト 第 1 画面 は 0 , 第 
2 画面 は 8 0 0 H が 先頭 アド レス で す . 


グラ フィ ッ ク 画 面 の 表示 アド レス に 関し て は 1. 1 グラ フィ ッ ク VRAM を 参 
膨 し て 下さ い . 


SAD1 一 1sL1 
SAD2 一 
SL 2 
SAD3- L ノ FE 
に 
SAD4 一 | 
SL 4 





表示 画面 と の 対応 
(テキ スト 画面 の 場合 。、 グラフィック 画面 で は , 1 , 2 の み ) 
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ーーーーーー ニ ーーーーーーーー ーーーーー ーー ニー ニー ニーーー エ ーー ューーーーー ュ テー ニー ニテ ーーーーーーーーー ニ ーーーーー ニ ーーーー-ーーーーーーーー ェ ーーー エー ニニ ーー ニー ニー ニー ココ mーーーーーーーー ニ ニー 





6. CSRFORM コ マン ド 
1 行 中 の 表示 ライ ン 数 お よび カー ソル の 形状 を 設定 し ます . グラ フィ ッ ク 画 面 
で は L し /R の み 意 味 を 持ち ます . 他 の パラ メー タ は テキ スト 画面 で の み 有 効 で す . 


まし CFI BL 


(|) LR | 行 中 の 表示 ライ ン 数 





通常 。 グ ラフ ィ ッ ク 画 面 で は 1 行 は 1 ライ ン で す が ,。 PCー9800 シ リー ズ 
で は , 専用 高 解像度 ディ スプ レイ で 2 0 0 本 モー ド に する と き 1 行 を 2 ライ ン に 
し ます 。. 


(2) CS カー ソル 表示 の 有無 


カー ソル 表示 無 し . 
カー ソル 表示 有り. 





34 





(3) BD カー ソル ・ ブ リン キン グ の 有無 


プリ ン キ ング 有り . 
プリ ン キ ング 無し . CS= 1 の と き 和 常時 点灯 . 





BL が 大 きい ほど 点滅 は ゆっ くり に な り ま す . 


(5) CST カー ソル 表示 開始 ライ ン 
本 パラ メー タ と 次 の CEF I で カー ソル の 縦 の 長 さ を 設定 し ます . ここ で いう ラ 
イン と は 。 1 行 中 の 上 か あく 4 2 。 9 お 8 の あ 雪 あお スン の こと で ず / 





(6) CFI カー ソル 表示 終了 ライ ン 
CET さ し ル し ノ と ど と じ し て 下さ い 、 また, CE エニ モノ / 恨 と する を 画 面 の 1 行 且 で 
は ,。 ブロッ ク カ ー ソ ル し か 表示 で きま せん . 
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| 
| 








設定 例 
PCー9800 シ リー ズ の テキ スト 画面 で は 通常 深 の よう に 設定 され て いま 


専用 高 解像度 標準 解像度 
25 行 20 行 25 行 1!20 行 
し (ラオ ン 数 ) 8 1 0 


BL 1 2 ま : 
C S 耳 (ライ ン 値 ) 1 ま 
CF 1 (ライ ン 値 ) い 1 0 





描画 関係 コマ ンド > 
GDC を 用 いて 描画 を 行なう に は 次 の よう に コマ ンド を 与え ます . 


(1) WR I TE コマ ンド …… ドッ ト 修 正 モ ー ド の 設定 
(2) TEXTW コ マン ド …… ライ ンス タイ ル ,。 文字 パタ ー ン の 設定 
(3 CSRW コ マン ド ……… 描画 開始 アド レス の 設定 
(4) VECTW コ マン ド …… 描 画 の 種類 , パラ メー タ を 設定 
(5) VECTE ま た は 
TEXTE コ マン ド …… バ 描画 の 実行 を 指示 


以上 の うち , (1) と (2②) と (3) は 常に 与え る 必要 は な く , 目的 に 応じ て 省略 で きま 
す . 次 に 各 コ マン ド の 詳細 を 説明 し ます . 


1 WW Rt 活 コマ シド 
ドッ ト 修 正 モ ー ド の 設定 を し ます . コマ ンド コー ド の 下位 2 ビッ ト の 値 に よっ 
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て 次 の よう に 4 つの モー ド を 選択 で きま す 。 1 度 設 定 する と 再 設定 を 行なう まで 
有効 で す . 


REPLACE 


COMPLEMENT 
CLEAR 
SE 上 





REPLACE と は , 描画 パタ ー ン の 1 , 0 を その まま 書き 込む こと , SET 
と は , 描画 パタ ー ン の うち 1 の み を 書き 込む こと , CLEAR と は , 描画 パタ ー 
ン の うち 1 の み を 0 と し て 書き 込む こと . COMPLEMENT と は , 描画 パタ 
ー ン の うち の 1 と 対応 する VRAM の ドッ ト を 反転 する こと を 意味 し ます . 描画 
パタ ー ン は TEXTW コ マン ド で 与え られ ます . 


を 。 1 EXT 玲 コ ペ で ンド 





ライ ンス タイ ル , また は , グラ フィ ッ ク 文 字 描 画 時 の 文字 パタ ー ン を 設定 し ま 
す . この パタ ー ン 記憶 用 の 内 蔵 R AM は 8 バイ ト あ り , 全体 で 8 x 8 の 文字 パタ 
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ー ン を 保持 し ます 。 先頭 の 2 バイ ト は ライ ンス タイ ル と 共用 で す . この 内 蔵 R A 
M へ は 任意 の アド レス か ら 書 き 込 むこ と が で き , コマ ンド コー ド の ト 下位 3 ビッ ト 
で その 先頭 アド レス を 指定 し ます . 


3。 CSRW コ マン ド 

描画 開始 点 を 設定 し ます . テキ スト 用 GDC に 対し て は , カー ソル 位置 の 設定 
と し て 働き ます . 

(1) テキ スト 用 GDC の 場合 


。 まん 介し に (本 洋 た 六 ゆ 醒 )、]1 


P1 
p2 [ューーpsr 一 一 


EAD で カー ソル の アド レス を 指定 し ます . アド レス は GDC の アド レス で あ 
る こと に 注意 し て 下さ い . 


(2) グラ フィ ッ ク 用 GDC の 場合 


ET 


描画 開始 点 を EAD (ワー ド ・ ア ドレ ス ) と dAD (ドッ ト ・ ア ドレ ス ) で , 
指定 し ます . ワー ド ・ ア ドレ ス と は , 目的 の ドッ ト が 含ま れ て いる ワー ド の (G 
DC か ら 見 た ) アド レス で あり , ドッ ト ・ ア ドレ ス と は , その ワー ド の 中 の 位置 
を 示す も の で す . 1 ワー ド 中 で は , 1 番 左 が ビッ ト 0 で す . (1. 1 参照 ) 
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4 。 YE し 「W コ マン ギド 
直線 , 円 弧 な どの 描画 種類 , 描画 方 向 . 具体 的 な 描画 情報 を 設定 し ます . 


P3 | x |pep DCn 

リ 
mn 
P6 ニン 

P 7 D2H 

Ps 
P9 D1H 

P10 DMr 

P11 DM 


Ro 人 テニ ーー 


(|) SL, R, C, T, L 描画 種類 の 設定 












o 傾 斜 し な い グ ラフ ィ ッ ク 文 字 描画 時 | 


(2) DIR 描画 方 向 (次 頁 参 照 ) 
描画 種類 と の 組み 合わ せ で 次 の よう に な り ま す . 






トー 





(3) DC, D, D2, DI, DM 具体 的 な 描画 情報 
値 が 負 に な る 場合 は 2 の 補 数 で 設定 し ます . 


に ーーー トーD2 
に ーー トー8 
2AYI2IAX| 





AX : X 座 標 変位 B* : 第 2 描画 方 向 変位 数 

へ AY :Y 座 標 変位 A**: 第 1 描画 方 向 ドッ ト 数 

r 半径 B**: 第 2 描画 方 向 ド ッ ト 数 一 1 
N : 捕 画 総 ド ッ ト 数 ー 設定 禁止 パラ メー タ 

M : マ スキ ング ・ ド ッ ト 数 

も 和夫 サ 上 げ 

A* : 第 1 描画 方 向 変位 数 
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DIR (Direction) 


DIR| 上 直 線 全 | 円 気 」 ク グラ フィ ッ ク 婦 学 | 個 絆 グラ フィ ッ ク 革 









































> 6 





























こみ ーーーー ーーー 

















: 捕 画 始点 区 を 義 域 
: 描画 方 向 [」: 描画 域 
・ 描画 終了 時 の EAD 指 示 点 

・ 第 1 方 向 

・ 第 2 方向 


j: ま pte 


( 注 ) 直線 の DIR 定 義 中 破線 矢印 の 方 向 へ は 書け ませ ん 。 
また , 描画 終了 時 の EAD 指 示 点 は 描画 し た 延長 上 に きま す 。 
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5 。 


6 . 


VEC 和 TE ユマ ンド 
直線 , 四辺 形 , 円 弧 , 1 ドッ ト 描 画 の 実行 開始 を 指示 し ます . 


人 


を コア シド 
グラ フィ ッ ク 文 字 描画 の 文字 開始 を 指示 し ます . 


ーー 
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に ステー タス レジ ス を 

ステ ー タ スレ ジス タ の 各 フ ラグ の 意味 を 次 に 示し ます . GDC に コマ ンド , パ 
ラメ ー タ を 書き 込む と き に は , GDC の FIEO が いっ ぱい に な っ て いな いこ と 
を 確認 し な く て は な り ま せん . FIFO FULL の フラ グ は , ステ ー タ スレ ジ 


スタ の ビッ ト 1 に あり ます . 

le いっ s いき = 條 な omavsvv ei 
回 読み 出し コマ ンド を 実行 後 ,. デー タ が 読み 出し 
N、 


DATA 
READY 可能 に な っ た こと を 示す . 
2 FIFO が 空 で ある こと を 示す . 














FIFO 「 TI 押 WT 
FULL FIFO が いっ ぱい で ある こと を 示す . 
FIFO 
EMPTY 


DRAWING 捕 画 中 で ある こと を 示す . 








DMA 2 
人 直 同 期 信号 が 発生 し て いる こと を 示す . 





HORIZONTAL 
BLANK 





水平 消去 信号 (HBLANK) が 発生 し て いる 












LIGHT 
PEN 
DETECT 












トペ ン 信 号 に よる アド レス の 検出 が され た 
を 示す . 
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ワン 抄 イ ント ・ ヒ ント 


衣 グラ フィ ッ ク 文 字 の 拡大 描画 

GDC に は , Z00M コ マン ド が あり , 拡大 表示 , 拡大 描画 の 機能 が あり ます . 
拡大 表示 と は , グラ フィ ッ ク 画 面 の 一 部 を 大 きく 拡大 し て 表示 する こと で す が , 
拡大 表示 に は 外 付け の ハー ドウ ェ ア が 必要 で あり , PC 一 98 0 0 シリ ー ズ は 残 
傘 な が ら サ ポー ト し て いま せん . 拡大 描画 と は , 始め か ら 図 形 を 拡大 し て グラ フ 
ィ ッ ク メ モ リ に 書き 込ん で いく こと で あり , PC 一 9 8 0 0 シリ ー ズ で も 実現 で 
きま す . た だ , BAS 1IC, LIO, BTIOS で は この 機能 を サポ ー ト し て いな 
い の で , 直接 GDC を 制御 する 必要 が あり ます . 以下 は その 方 法 の 紹介 で す . 

ZOOM コ マン ド の パラ メー タ の 下位 4 ビッ ト が 拡大 描画 係数 で す . 0 が 1 倍 , 
1 が 2 倍 , 2 が 3 倍 , 最大 は 1 5 で 1 6 倍 で す . 拡大 描画 係数 は 一 度 設定 され る 
と 再 設定 され る まで 有効 で 以後 行なわ れる グラ フィ ッ ク 文 字 の 描画 コマ ンド に 対 
し て 働き ます . 


(1) TEXTW コ マン ド で 描く べき 8X8 の 文字 パタ ー ン を セッ ト す る . 


(2) X,。 Y 座 標 か ら メ モリ 上 の GDC ア ドレ ス を 計算 する . X, Y を スク リー ン 
座標 。 P を プレ ー ン 番号 (1, 2, 3) と する と アド レス は 湊 の よう に 求まる . 


ワー ドア ドレ スニ Y*40 十 X 半 16 十 P* 必 H4000 
ドッ ト ア ドレ ス =X MOD 16 ( 
ドッ ト ア ドレ ス と は 。GDC ア ドレ ス 1 ワー ド の 中 で の 位置 を いう . 


(3 CS RW コマ ンド で 描画 開始 アド レス を セッ ト す る . 

(4) VECTW コ マン ド で グラ フィ ッ ク 文 字 の 描画 の 各 パ ラメ ー タ を セッ ト す る . 
(5) 20O0M コ マン ド で 拡大 描画 係数 を セッ ト す る . 

(6) TEXTE コ マン ド で 描画 の 実行 を 指示 する . 


この プロ グラ ム は Z00M コ マンド の デア デモン 区 トレ ーション ・ プ ログ ラム で , 
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“人 A” と いう 文字 を 倍率 を 1 僅か ら 1 6 倍 ま で 変え て 画面 に 表示 する も の で す . 
上 に 述べ た アル ゴリ ズム を BA S 1 C で 実行 し て いま す . 行 番 号 3 5 0 では, V | 
ECTW コ マン ド の パラ メー タ で 描画 方 向 等 を 出力 し て いま す が , 下位 3 ビット | 
が 描画 方 向 を 意味 し て お り ,&H 1 0,&H 1 3,&H 1 7 な ど と 変え て みる と 文 | 
字 の 角度 が 変わ り ま す . | 








100 拡大 描画 アモ ンス トレ ーション プロ グラ ム 
110 SCREEN 3,1 
120 FOR 1=0 PO 15 


130 OUT &HA2,&H78  :'TEXTW COMMAND 

140 OUT &HAO,&HO :*00000000 
150 OUT &HAO,&H38 :*00111000 | 
160 OUT &HAO,&H44 :*01000100 半 
170 OUYT &HA0,&H82 :*10000010 
180 OUT &HA0O,&H82  :'10000010 日 
190 OUT &HAO,&HFE  :'11111110 
200 OUT &HA0,&H82 :*10000010 日 
210 OUT &HA0,&H82 :*10000010 昌 
220 昌 
230 X=300:Y=180 : ” 描画 開始 座標 
240 AD=Y*40+X\16 : *GDC アド レス へ 変換 1 
250 ADL=AD MOD 256 : "下位 パイ ト | 
260 ADH=AD\256+&H40:' 上位 バ イト 上 
270 DAD=X MOD 16 ドット アド レス | 
280 e | 
290 OUT &HA2,&H49  :'CSRW COMMAND | 
300 OUT &HAO0,ADL 
310 OUT &HAO,ADH 
320 OUT &HA0,DAD*16 

330 9 

340 OUT &HA2,&H4C  :'VECTW COMMAND 

350 OUT &HAO,&H12  :*DIR=2 

360 OUT &HAO,&H7 ] 
370 OUYT &HAO,&HO 
380 d | 
390 OUT &HA2,&H46  :'Z00M COMMAND | 
400 OUT &HAO,1 : * 拡大 描画 係数 
3 き 。 * 
420 CS 3 | 
430 LOCATE 40,14:PRINT "倍率 =" : エ +1 

440 


450 OUT &HA2J&H68  :*'TEXTE COMMAND 
460 FOR J=1] TO 1000:NEXT 
470 NEXT 


実生 結果 
倍率 が 1 6 の と き の 画 面 の コピ ー で す -. 


()k 
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「 み メッ 才 イシ われ ッ ビッ 


娘 カ ー ソ ル の 形状 を 変更 する 方 法 

GDC の CSRFORM コ マン ド を 用 いれ ば , カー ソル の プリ ン キ ング 速度 
大 き さ な ど を 変え ん る こと が で きま す . (1. 3 参照 ) し か し , この 機能 は BIO 
S で は サポ ー ト され て いな い の で , 直接 GDC を 制御 し ます . 

ここ で は , わか りや すい よう に BAS 1C で 記述 し て み ま し た . 実際 に 動か し 
て 試し て みて 下さ い . BLINK RATE は 値 が 大 きい ほど プリ ン キ ング は ゆっ くり 
に な り ま す 。。 


100 "カー ソル 形状 を 変更 する 
110 INPUT "CURSOR (0:OFF,。 1:ON)=":CS 


120 INPUT "BLINK (0:ON, 1:OFF)=":BD 
130 INPUT "BLINK RATE (1 - 31) =":BL 
140 INPUT "START LINE (0 - 15) =":CSTY 
150 INPUT "FINISH LINE (0 -15) = jCF1 


160 OUT &H62.&H4B 

170 OUT &H60,CS*&H80 

180 OUT &H60,(BL MOD 4)*&H40+BD*&H20+CST 
190 00T &H60,CFT*8+BL\4 


入力 例 


は ) アン ダー イン ・ な か ー ソ ル で ます 。 か な り 連 《 ブ リン ギ ジ じ ます 、 


FLFI 

CURSOR (0:OFF 。 1 :ON) =? 1 

BLITNK (0:ON。 1:OFF)=? 0 

BLTNK RATE (1 - 31) =? 4 

START LINE (0 - 15) =? 14 
FTNISH LINE (0 -15) =? 14 
0k 


2) ブロ ッ メッ ネ ・ カ か カー ツル 藻 ま り 光 す メッ キン ッ グ は ほし ませ ん 。 


FUFI 

CURSOR (0:OFF 。 1 :ON) =? 1 

BLTNK (0:ON, 1:OFF)=? 1 

BLINK RATE (1 - 31) =? 1 

START LINE (0 - 15) =? 0 

FTNTSH LINE (0 -15) =? 15 
0k 
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ワン ボキ ギク ッッ セン ト 


太 640X4 0 9 の 人 解像度 を 実現 する 方 法 
1 家人 O 述 べた だ よう に グラ テア ォ ッ ク VRAM は 1 プレ ー ン あたり 32768 バ 


イト あり ます が , 64 0X4 0 0 の 場合 に 実際 に 使う の は 3 2 0 0 0 バイ ト で す . 


7 6 8 バイ ト 余 っ て いま す の で , これ も 使う と すれ ば 理屈 で は あと 9 ライ ン 増 や 
せる は ず で す 。 4 0 9 ライ ン を 表示 する に は GDC と SYNC コマ ン ド で 表示 ラ 
イン 数 (ルン F) を 4 0 9 に し て や れ ば 良さ そう で す . 9 ライ ン ぐ らい の 増加 な 
らら ディス プレ イ も な ん と か 同期 し て くれ る で し ょ う . た が 気 を つけ な く て は い 
け な い の は 。 テ キス ト 用 の GDC も 同様 に ライ ン 数 を ふやし て や る こと で す . 

ここ で は 。 わ か りや すい よう に BAS TIC で プロ グラ ム を 書い て み ま し た . 始 
め に グラ フィ ッ ク 用 GDC に 対し て SYNC, お よび , PIE 生じ CH コマ ン ド を 与 
えま す (130 一 2 70). 次 に 同様 に テキ スト 用 GDC に も 与え (300 一 40 
0 ), 最後 に 両方 の GDC に START コ マン ド を 与え ます (410 一 420). 
4 4 0 行 で は 通常 の 6 4 0X4 0 0 の 範囲 を 結 の ボッ クス で 示し ます . 新しく 作 
っ た 9 ライ ン に は BASIC の LINE 等 で は 書き 込め ませ ん か ら , POKE で 
直接 書き 込ん で 表示 きれ て いる こと を 確認 し て いま す (4 50 一 480). 


100 '640X409 の 解像度 を 実現 する 
3 


| P > ニ 110 SCREEN 
130 "SET GRAPHIC GDC 
140 OUT &HA2,&HE : SYNC COMMAND 
150 OUT &HAO,&H16 
160 OUT &HAO,&H26 
170 OUT &HAO,&H3 
180 OUT &HAO,&H11 
190 OUT &HAO,&H3 
200 OUT &HA0,&H7 
210 OUT &HAO,&H99 : * NORMAL=&h90 
220 OUT &HAO,&H65 
230 OUT &HA2,&H47 : PITCH COMMAND 
240 OUT &HAO,&H28 
250 OUT &HA2,&H72 
260 OUT &HAO,&HFO 
270 OUT &HAO,&H3F 
280 ”' 
290 'SET TEXT GDC 
300 OUT &H62,&HE : 7 SYNC COMMAND 
310 OUT &H60,&H10 
320 OUT &H60,&H4E 
330 OUT &H60,&H7 
340 OUT &H60,&H25 
350 OUT &H60,&H7 
360 OUT &H60,&H7 


370 OUT &H60,&H99 :) NORMAL=&h90 

380 OUT &H60,&H65 

390 OUT &H62.,&H47 : PITCH COMMAND 

400 OUT &H60,&H50 

410 OUT &H62.,&HD : START COMMAND TO TEXT GDC 
420 OUT &HA2,&HD : *START COMMAND TO GRAPHIC GDC 
430 


440 LINE(0,0)-(639,399) ,4,B: "640X400 の 範囲 
450 DEF SEG=&HA800  :' 青 の プレ ー ン ジ 

460 FOR 1=0 TO 719  : "新しく 作っ た 9 ライ ン を 
470 POKE 32000+I,&HFF :'&HFF で 埋め る 
480 NEXT 4 
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1. 4 モー ドド フリップフロッ プ コ ント ロー ル 

CR 芽 関係 の 各種 の 設定 を 行う フリ ッ プ フロ ッ プ で す 。 1 /0 ア ドレ ス の 68 
H に あり , 8 種類 の 設定 が で きま す . 対象 と な る フリ ッ プ フロ ッ プ の 選択 は 。A 
DR0-ー2 で 行い 。 D 征 に 値 を セッ ト し ます . 


0 の 境 り 。 生 の) 
6 8 時 ADIADIAD DTT 
R2IR1IRO 


ADR0-2 と 対応 する フリ ッ プ フロ ッ プ は 次 の よう に な り ま す . 

















アト ルビ ュー ト の ビ ピット.4 の 理 味 。、 
ゲ が ラプ キッ クタ も デイ 
1 行 の 文字 数 
4 0 字 8 0 字 
文字 フォ ント 
奇数 番 ラ イン の 表示 抑止 
あり な し 
漢字 アク セス モー ド 
不揮発 性 メモ リ へ の 書き 込み 
許可 禁止 
画面 表示 





=ー 





ト つ 




















こ 、] 


ェ ー ェ トー ーー テー ーー) ぐら < つ | ニョ ンー =! mp 用 e - コ 
+ー ェ ー に < で ーー ーー レー ーー ジ ジワ 
ェ ー に つ +ー に トー < ェ ー ーー オン = pe コ 
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(0 ) ア トリビュー ト の ビ ピット 4 の 意味 


実 ア ドレ ス の A2 0 00 から A3FFF 是 に は テキ スト 画面 の アト リ ビ ュ ー 
ト (属性 ) エリ ア が あり , 1 バイ ト が 1 文字 に 対応 し , 属性 を 表わし て いま す . 
アト リピ ビュ ー ト の 各 バ イト は 次 の よう な 構成 に な っ て お り , ビッ ト 4 の 意味 は , 
モー ド フ リッ プ フ ロ ッ プ の 設定 で 変化 する よう に な っ て いま す . 


bz 


be bs b bs bz bh 


中 









シー クレ ッ ト 
りあ メグ 


バー チカ ル ラ イン (FF が 0 の と る き ) 
も セミ 多 ラ スネ ッ 人 角 ( 史 E が も の と き ぁ ) 


(|) カラ ー グ 白黒 の 選択 

グラ フィ ッ ク 画 面 に 対し て カラ ー か 白黒 か を 選択 し ます . 白黒 を 選択 する と, 
カラ ー パ レッ ト の 緑 の 出 力 の ON/ プ OFF に よっ て 白 ま た は 時 (つま り 3 色 と も 
ON/OFF す る ) と な り ま す . この 切り 換え は , パレット レジ スタ の 出力 に 対 
し て 行わ れる の で , グラ フィ ッ ク 画 面 に 対し て の み 有 効 で あり , テキ スト 画面 に 
は , 影響 を 及ぼ し ませ ん . 


@ 機械 語 に よる 直接 制御 

白黒 の 指定 MOV 放し 
(ONUFT 0 六 朋 。、 AL し 

カラ ー の 指定 MOV 9 0 


OUT 6 8。 AL 


@BIOS に よる 制御 
2 3 の グラ フィ ツク スク リー ン の モー ド 設 定 を 使い ます . レジ スタ C 是 の ビ 


49 


ニョ ニニ ーーー デジ の と ーー ニニ ーー ニー ニニ ェ ニ ーー 
いこ Gーー ッ コー っ ーー の ーー ニー ニー ュー ニー 


ーー ニニ ーー = ニニ ー ニ ーー ニー ニニ っ ーー ニン ー ニ ーーーー ニ ーー: エーーー ニー ニニ ニテ ーー ーー 


ッ ト 5 が, 白黒 / プ カラ ー の 切り 換え を 意味 し ます . 


@| |10 に よる 制御 
GSCREEN の 第 1 パラ メー タ で 指定 し ます . 


eBASIC に よる 制御 
SCREEN 文 の 第 1 パラ メー タ で 指定 し ます . 


(2) | 行 の 文字 数 の 選択 
テキ スト 画面 の 1 行 の 文字 数 を 選択 し ます . 0 で 8 0 字 , 1 で 4 0 字 で す . 


(3) フォ ント の 選択 

テキ スト 画面 に 表示 する 英 数 カナ 文字 の フォ ント の 大 き さ を 選択 し ます 通常 
は 専用 高 解像度 ディ スプ レイ で は 7 x 1 3 の フォ ント を 標準 ディ スプ レイ で は は, 
6X 8 の フォ ント を 用 いま す . 


(4) 奇数 番 ラ イン の 表示 抑止 ' 

この フリ ッ プ フロ ッ プ を 1 と する と , グラ フィ ッ ク 画 面 に お いて 言 数 番目 の ラ 
イン は 表示 され ず プ ブラ ンク と な り ま す . この 機能 は 専用 高 解像度 ディ スプ レイ を 
用 いて 2 0 0 本 表示 する と きのみ に 用 いら れ ま す . 専用 高 解像度 ディ スプ レイ で 
は , 4 0 0 ライ ン の 表示 が で きま す が , GVRAM の 2 0 0 行 分 を ちょ うど 画面 
いっ ぱい に 表示 する た め に , GDC の 設定 に より 1 行 を 2 ライ ン と し て いま す . 
た だ し , その 場合 は 横線 が 太く な っ て し まう の で , それ を 自然 に 見 える よう に す 
る だ ゆめ 。 キタ イン お き に デラ ンク と な る も よう に も て いる の で すず す 。 


@ 機械 語 に よる 直接 制御 

奇数 番 ラ イン の 表示 制御 あり の 指定 
MOV 太 下 9 
OUT 6 8H, AL 


奇数 番 ラ イン の 表示 制御 な し の 指定 


MOV ム 上 し , 8 
OUT 6 8 是 。 AE 
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@BIO0S に よる 制御 

2. 3 の グラ フィ ックス クリ ー ン の モー ド 設 定 が 関係 し ます . レジ スタ CH の 
ビッ ト 7, 6 が , 0 1 また は 1 0 (つま り 2 0 0 本 モー ド ) の と き で , 専用 高 解 
像 度 デ ィ ス プレ イ の と き (PC 一 9 8 0 0 シリ ー ズ 本 体 背 面 の デア ィ ッ プ スイ ッ チ 
で 指定 ),) この フリ ッ プ フロ ッ プ が 1 に セッ ト さ れ ま す . 


@| |10 に よる 制御 

GSCREEN の 第 1 パラ メー タ で 2 0 0 本 モー ド を 指定 し , 専用 高 解像度 デ 
ィ ス プレ イ の と き (PC 一 9 8 0 0 シリ ー ズ 本 体 背 面 の ディ ッ プ スイ ッ チ で 指 
定 )) この フリ ッ プ フロ ッ プ が 1 に セッ ト さ れ ま す . 


@BAS1IC に よる 制御 

SCREEN 文 の 第 1 パラ メー タ で 2 0 0 本 モー ド を 指定 し , 専用 高 解像度 デ 
ィ ス プレ イ の と き (PC 一 98 0 0 シリ ー ズ 本 体 背 面 の ディ ッ プ スイ ッ チ で 指 
定 )、。 この フリ ッ プ フロ ッ プ が 1 に セッ ト さ れ ま す . 


(5) 漢字 アク セス モー ド の 選択 

ドッ トマ ッ プ モー ド で は , 漢字 キャ ラク タ ジ ェ ネ レ ー タ の アク セス は いつ で も 
で きま す が , コー ドア クセ スモ ー ド で は , VSYNC (垂直 同期 信号 期間 ) 中 に 
行なわ な く て は な り ま せん . 


(6) 不揮発 性 メモ リ へ の 書き 込み の 許可 , 禁止 

BASTIC の MON コ マン ド の SSW で 読み 書き する メモ リス イッ チ は , 実 ア 
ドレ ス A3FE2HーA3FF6 是 に あり ます が , この メモ リ は 通常 書き 込み 
禁止 状態 に あり , この メモ リ へ 書き 込む た め に は , この フリ ッ プ フロ ッ プ を 1 に 
し て 書き 込み 許可 の 状態 に し な けれ ば な り ま せん . 


(⑰) 画面 表示 の 0N プ 0FF 

この フリ ッ プ フロ ッ プ を 0 に する と 画面 は 全く 表示 され な く な り ま す . これ は 
電源 投入 時 に 不 確 定 状態 の ビデ オ R AM の 内 容 が 表示 され る の を 抑制 する の に 使 
われ ます . パワ ー オ ン に よる リセ ッ ト 信 号 で この フリ ッ プ フロ ッ プ の 初期 状態 は 
0 で あり 画面 表示 は OFF と な り ま す . CR 華 関 係 の ハー ドウ ェ ア の 初期 設定 の 
後 , この フリ ッ プ フロ ッ プ は 1 と され ます . 


51 


レシ イプ ド ピン シキ 
婦 メ モリ スイ ッ チ を 書き 換え る 方 法 


PC--9800 シ リー ズ に は , メモ リス イッ チ と 呼ば れる 不揮発 性 の R AM が 
あっ て , 通信 の パラ メー タ 等 を 設定 する よう に な っ て いま す . 普通 は MON コ マ 
ンド で モニ タ に 入っ て S SW 1 な ど と 入力 し て 書き 換え ます . し か し , 端末 プロ 
グラ ム な どの 作成 に あたっ て は , BAS 1IC か ら 通 信 速 度 (ボー レー ト ) な ど を 
設定 で きれ ば 便利 で し ょ う . 

メモ リス イッ チ は 主 記憶 空間 の 実 ア ドレ ス A 3 
FE2Hー-A3FF6H に あっ て , 各 ス イッ チ と 
の 対応 は 次 の 表 の と お り で す . し か し , この アド 
レス か ら , PEEK で 値 を 読む せこ と は で きま す が , 
POKE し て も 内 容 は 書き 換わり ませ ん . それ は , 
この R AM が 書き 込み 禁止 状態 と な か っ て いる か ら 
で す . 書き 込み 禁止 状態 を 解除 する に は モー ド フ 
リッ プ フ ロ ッ プ を 制御 し ます (1. 4 参照 ) 1/ 
O ア ドレ ス 6 8H に 0DH を 書き 込む と 解除 に な 
り ま す . 変更 が 終わ っ た ら , 0C 是 を 書き 込ん で 
まだ た 禁止 に し で お きま す . 


この プロ グラ ム は BAS TIC か ら , メモ リス イッ チ の 内 容 を 書き 変え た る も の で 
す . まず , スイ ッ チ 番号 を 入力 し ます . 現在 の 内 容 を 表示 し ます か ら , 次 に 書き 
込む 値 を 入力 し て 下さ い . 


10 DEF SEG=&HA000 

20 INPUT "スイ ッ チ 内" ンコ "ウー" 7 時 

30 ADRS=&H3FDE+SW*4 

40 PRINT "ケン サド イ ノ ァ タ イ =&H" :HEX$(PEEK(ADRS ) ) 
50 INPUT "アタ ラ シ イ ァ タ イ =" : 政 

60 OUT &H68,&HD:' 書 き 込 み 禁止 を 解除 

70 POKE ADRS,K : ' メモ リス イッ チ ニ カキ コム 

80 OUT &H68,&HC:' 書 き 込 み 禁 止 に 戻す 













実行 例 
rum 
スイ ッ チ "ンコ" ウ =? 1 
ケ " ン サイ ノ アタ イ =&H48 
アタ ラ シ イ ァ タ イ =? &h23 
0k 
run 
スイ ッ チ ハハ "ンコ “ウェ? 1 
ケ " ン サイ ノ アタ イ =&H23 
アタ ラ シ イ ァ タ イ =? &h48 
Ok 
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|. 5 ボー ダ カ ラ ー レ ジス タ 


ボー ダ カ ラ ー と は , 画面 で デキ スト や グラ フィ ッ ク を 表示 で きる 範囲 より 外 の 
部 分 に つけ る 色 の こと を いい ます . ボー ダ カ ラ ー レ ジス タ と 呼ば れる 3 ビッ ト の 
書き 込み 専用 の レジ スタ が あり , 画面 の 縁 の 部 分 の 走査 時 に は , この レジ スタ の 
出力 が マル チ プ レク サ で 選択 され ビデ オォ 信号 と し て 出力 され ます . た だ し , この 
ボー ダ カ ラ ー の 機能 は 標準 解像度 の ディ スプ レイ に 対し て の み 正 し 〈 働 きま す . 
専用 高 解像度 の ディ スプ レイ に 対し て 黒 以 外 の ボー ダ カ ラ ー を 設定 する と 画面 が 
乱れ ます の で 注意 し て 下さ い . 

ポー ダ カ ラ ー レ ジス タ は 1 / プ 0 アド レス の 6CH に あり ます . ビッ ト 4, 5, 
6 が それ ぞ れ 青 , 赤 , 緑 に 対応 し て いま す . 


b,。 bs bs hb bs bz hb be 





@ 機械 語 に よる 直接 制御 
例 ボーダ カラ ー に 赤 を 設定 し ます . 
MOV 覆 。 U 旨 
OUT 6 C じ 日, も 
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@BIOS に よる 制御 

2. 5 の ボー ダ カ ラ ー の 設定 を 使い ます . BIOS で は 専用 高 解像度 の ディ ス 
プレ イ か どう か の 判定 を 行い , 専用 高 解像度 の と き に は ボー ダ カ ラ ー レ ジス タ へ 
の 設定 を し な いよ うに な っ て いま す . 


@| 10 に よる 制御 

3。 4 の GOLOR 1 を 使い ます 。 第 1 パラ メー タ で ボーダ カ ラー を 設定 し ま 
す . BIOS と 同じ く 専 用 高 解像度 の と き に は , ボー ダ カ ラ ー の 設定 は 行なわ れ 
ませ ん . 


@BAS1IC に よる 制御 

COLOR 文 を 使い ます . 第 3 パラ メー タ で ボー ダ カ ラ ー を 設定 し ます . BI 
OS, L IO と 同じ く 専 用 高 解像度 の と き に は , ボー ダ カ ラ ー の 設定 は 行なわ れ 
ませ ん 。 
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6 一 バン タグ 乾 り 所 ええ ス イッ チ 


PC 一 9 8 0 1E ノ FM で は ,。 グラ フィ ッ ク VRAM が PC 一 9801 の 2 
僅 の 1 9 2 KK バイ ト 実 装 さ れ て いま す . 増え た 9 6K バ イト は 元 の 9 6 K バ イト 
と 同じ アド レス 上 に あり ます . も と の 9 6 KK バイ ト を バン ク 0, 増え た 9 6KK バ 
イト を バン ク 1 と 呼び ます . バン ク 0 と バン ク 1 は 切り 換え て どちら か 一 方 を 使 
う よ う に な っ て いま す . この 切り 換え を バン ク 切 り 換 えと 呼び ます . この 切り 換 
え に よ っ て バン ク の 選択 を する わけ で す が , 表示 時 と 描画 時 と で アク セス され る 
バン ク を 独立 に 設定 で きる よう に な っ て いま す . で すか ら ,。 バン ク 0 を 表示 し な 
が ら , バン ク 1 に 描画 を 行なう , また は , その 逆 も 可能 と な り ま す . 
バン ク 切 り 換え スイ ッ チ は , IO アド レス の 0A4H と 0A6 是 に あり ます . 
0 A 4 H が 表示 バン ク の 切り 換え , 0 A6H が 描画 バン ク の 切り 換え で す . 


表示 バン ク の 切り 換え 
0A4H < ネト ダグ 0 
| 重信 みか 本! 

描画 バン ク の 切り 換え 
0A6H 0 ファ ポッ グ 人 
フン タプ 1 


表示 バン ク と は , 表示 の た め に アク セス され る と き に 使わ れる バン ク の こと で , 
描画 バン ク と は , 表示 以外 の 目的 で アク セス され る と き に 使わ れる バン ク の こと 
で す . CPU, G で DC か ら の , 読み 込み , 書き 込み は これ に 相当 し ます . 
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ワ フ ポイ シト トン ゾ ビ み 


女 ス ムー ズ ・ ス クロ ー ル の 方 法 

スム ー ズ ・ ス クロ ー ル と は , テキ スト 画面 の 文字 を スク ロー ル す る と き に , 1 
文字 単位 の 大 き さ で 上 下す る の で は な く , 1 ドッ ト 単 位 で 上 下さ せる こと を いい 
ます . 画面 上 の 文字 は 流れ る よう に 上 下す る の で , 文字 を 目 で 追う こと が で き , 
非常 に 見 や すぐ な り ま す . PC 一 9801 の Ne8 一 BAS IC, BIOS 等 で は , 
この 機能 を サポ ー ト し て いま せん が , ハー ド 的 に は 実現 可能 で す . そこ で , この 
スム ー ズ スク ロー ル を 実現 する 方 法 を 紹介 し ます . 

C RT の 制御 用 LSI, CRT M/S (マス タス ライ ス ) (PD5261 
1) に は スム ー ズ スク ロー ル 用 に SSL, SUR, SDR の 3 つの レジ スタ が あ 
り , 画面 上 の 任意 の 場所 に 1 つ だ け ス ムー ズ ス クロ ー ル ・ エ リア を 設定 で きま す . 
次 に 各 レ ジス タ の T/0 ア ドレ ス と 意味 を 示し ます . 


スム ー ズ スク ロー ル ・ エ リア 内 の ス 
クロ ー ル ライ ン 数 を 設定 する . 





0 一 (スム ー ズ スク ロー ル エ リア よ 
り の 上 の 部 分 の 行 数) を 設定 する : 








(スム ー ズ スクロール エ リア の 行 数 
ー] を 設定 する . 






SU 呈 と SDK で スク ロー ル エ リプ を 指定 し 、 SS 上 で スクロール ライン 数 を 
指定 し ます . スク ロー ル エ リア 内 の 文字 は S S 上 で 指定 し た ライ ン 数 だ け 上 へ ず 
れ て 表示 され ます . スム ー ズ スク ロー ル は , S SL を 順次 増減 きせ る こと に よっ 
て 実現 きれ ます . た だ し , S SL 上 に よっ て ずら すこ と の で きる ライ ン 数 は 1 行 の 
ライ ン 数 まで で すか ら , 連続 し て スム ー ズ スク ロー ル を 行なう に は , 通常 の テキ 
スト 画面 の スク ロー ル と 組み 合わ せ て 行なう 必要 が あり ます . 





次 の BASIC プ ログ ラム は , 連続 スム ー ズ スク ロー ル の サン プル ・ プ ログ ラ 
ム で す . この プロ グラ ム で は , 画面 分 割 を し て 2 5 行 目 を 裏 画面 (0A2000 
Hー) と し て いま す が , これ は , 行 番号 2 4 0 の PR 1I NT で 画面 に 表示 され る 
文字 を 見 えな くす る た めで す . スク ロー ル エ リア は 画面 全体 で す 。 行 番号 2 6 0 
で SS 上 を 順次 イン クリ メン ト し て , 1 ライン ご と の スク ロー ル を し て いま す 。 
2 5 行 モ ー ド で は , 1 生 は も 0 テル シン で の CO きき 5 も を も 16 まで イン クリ メン 
ト し た ら , つぎ は , SS 上 を 0 に 戻し , 同時 に VRAM 上 の 文字 の 方 を 1 行 ス ク 
ロー ル し ます ( 行 番号 2 8 0). 画面 が ちら つか な いよ うに これ ら は VSYNC の 
期間 中 に 行ない ます . 


10 ' ネネ 氷 訂 素 氷 氷 玉 氷 氷 来 本 水玉 氷 氷 氷 氷 氷 末 本 末 末 水 氷 末 氷 氷 氷 氷水 玉水 玉 氷 氷 氷 氷 末 氷 玉 氷 氷 氷 氷 
20 '* SMOOTH SCROLL DEMONSTRATION PROGRAM ま 
30 '* ネ ネネ ネネ ネネ 水 水 氷 氷 氷 ボ 床 林 水 氷 氷 玉 氷水 水玉 末 氷 氷 氷水 末 水 氷水 氷水 氷 氷 氷 玉水 玉 氷 束 
100 CONSOLE 0,.25,0 

110 LOCATE 0,25 


120 OUT &H78.0 : ? ス クロール ノ セン トウ ヲ タイ 1 キ " ョ ウ カラ 
130 OUYT &H7A,24 : * スクロール キ " ョ ウス ウ ヲ 25 ト スル 

まあ 

140 OUT &H62,&H70 ? * 人 人 め C / カメ ッ プッ ンカ か ツ 

150 OUYT &H60,0 まま 沈ま 半 " ポ 注 

160 OUT &H60,&HO を 1--24 キ " ョ ウ 


170 OUT &H60,&HO 
180 OUT &H60,&H18 


190 OUT &H60.,&HO し タイ 2 が メッ ハ 
200 OUT &H60,&H8 5 25 キ " ョ ウ 
210 OUT &H60,&HO 

220 OUT &H60,1 


230 FOR ii=1 TO 1000 
240 PRINT 芽 ,!* 二 : 
250 FOR ゴ =1 TO 15 


255 VSYNC ノ トキ ニ スク ロー ル ライ ン スウ ヲ ヘン コウ 

260 TF INP(&H60)AND &H20 THEN OUT &H76,J ELSE 260 
270 NEXT 

275 ) VSYNC ノ トキ ニ スク ロー ル ライ ン スウ ヲ 0 ニシ 、 1 キ " ョ ウ スク ロー ル 
280 IF INP(&H60)AND &H20 THEN OUT &H76.0:PRINT ELSE 280 
290 NEXTY 
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し ま 
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2. 0 BIOS の 概要 


PC-9800 シ リー ズ で は , ハー ドウ ェ ア を 扱う 基本 的 な 入出 力 ル ー チ ン が 
BIOS と し て まとめ られ て いま す . ここ で は , その 中 で グラ フィ ッ ク 関 係 の も 


の を 取り 上 げ ま す . グ ラフ ィ ッ ク 関 係 の BIOS は 次 の よう に 1 1 種類 あり ます . 
B IO S ルー チン 一 覧 表 


| |AWel srosr- を 制御 する ハー ドウ ェ ア 


の た キ ツタ ャ 処 ブール の 2 3 
だ プリッ プア な メイ 


モー ド 設 定 
2 パレ ッ ト レ ジス タ 
ポー ダー カラ テラ ー レ ジ ズ タ 





















・ ノ パレット の 設定 


* 4 5 日 







グラ フォ ィ ッ ク ・ 炊 グリ サリー シベ の 
ドッ ト 書 き 込 み 







グフ ソイ ィ イッ ク ・ ス クリ ー ン が か がら の 
ドッ ト 読 み 出 し 







GVRAM 
4 6 日 


lem lomm eee 
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描画 関係 の BIOS (6 一 1 0) の うち , 6 と 7 は 直接 グラ フィ ッ ク RAM に 
アク セス する の に 対し て , 他 は GDC を 使っ て 描画 し て いま す . 

BIOS は 描画 に お いて スク リー ン 座 標 が 使 を る あ も の の , アク ティ ブ 画 面 , デ 
ィ ス プレ イ 画 面 な どの 考え 方 が L IO0, BAS 1IC な ど と は 異な り , か な り ハ ー 
ドウ ェ ア に 近い も の と な っ て いま す . BTIOS を 用 いた 描画 を 行なう 際 に は , そ 
の 点 を よく 理解 し て いた だ く こ と が 必要 で す . 


口 B10 S に お ける 画面 の 考え 方 
@ ディス プレ イ 画 面 

PC-980 0 シリーズ の も つ グ ラフ ィ ッ ク VRAM は 実 ア ドレ ス , AS800 
0 一 AFFFF, B0000 一 BZ7FFF, B8000 一 BFFFF に それ ぞ れ 
1 プレ ー ン が 配置 され , 各 プ レー ン の 出力 は パレ ッ ト レ ジス タ に よる 変換 を 受け 
た 後 , BRG の 各 出 力 と な り ま す . “ ! 

BIOS に お いて は グラ フィ ックス クリ ー ン の モー ド 設 定 で 表示 範囲 の 設定 が 
で きま す . 表示 範囲 に は , ALL, LOWER, UPPER の 3 種類 が あり , A 
LL と は , 640X400 の 解像度 を 意味 し , 各 プ レー ン の 全 領 域 を 表示 範囲 と 
する こと で す 。 LOWER ま た は UPPER は , 各 プ レー ン の 半分 の 領域 を 表示 
範囲 と する こと で , LOWER は 下 半 分 を , UPPER は 上 半分 を 意味 し ます . 


表示 に 使わ れる 領域 


各 プ レー ン は 常に パ マレット レジ スタ に よっ て 合成 され て 出力 され ます ., 白黒 モ 
ー ド に お ける 単 一 プレ ー ン の み の 出 力 は 。 パ レッ トレ ジス タ を うま く 設 定 す る こ 
と に よっ て 始め て 実現 され ます . 
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@ ア クティ ブ 画 面 
模 画 の 際 の 領域 の 指定 は , 描画 画面 ナン バ , 描画 画面 範囲 お よび 解像度 モー ド 
で 行ない ます . 描画 画面 ナン バ に よっ て プレ ー ン を 指定 し , 描画 画面 範囲 と 解 像 
度 モ ー ド の 組み 合わ せ に よっ て ALL, LOWER, UPPER を 指定 し ます . 
画 画面 範囲 と 解像度 モー ド の 両方 を 1 と する こと は 許さ れ ま せん . 


還 還 に ー コ CC 





カラ ー で 使う 場合 は 描画 画面 ナン バ を 1 1 と し , [BX 十 0 ] に パレ ッ ト 番 号 を 
設定 する の が 一 般 的 で す . 


@BIO0OS の 呼び 出し 方 法 
A 母 村 値 を セッ ャ もし て,- シス ネ チ あ ヨー ル 。 NT 1 8 耳 で 呼び 出し ます . B 


I OS で は レジ スタ は すべ て 保存 きれ ます . 引数 エリ ア は , DS : B 双 で 指示 す 
れ ば よい の で , 任意 の 領域 に 置く こと が で きま す . BIOS ル ー チ ン に よっ て は は , 
引数 エリ ア の 後方 十 数 バイ ト を 作業 領域 と し て 使う も の が あり ます .BASIC, 
L I O で は 引数 エリ ア と し て セグ メン ト 6 0H の 6 4 0 HH か ら を 使っ て いま す . 
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@ メ モリ マッ プ 
BIOS は , セグ メン ト F990 耳 の 2C0O 0 耳 か ら に あり ます . 
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OO 
ンー Ne 7 生  4 S 半 抽 か 


2C00H 


2 し じす 3 電 


2 し 5 ま ド 皇 


の と イイ 短 


2D00H 


2D33 量 


2D4AH 


2 EEAH 


2FB7H 


3 2 と すさ 且 


3467 昌 H 


各 ル ー チ ン へ の 分 岐 部 
グラ フィ ッ ク 画 面 の 表示 開始 
グラ フィ ッ ク 画 面 の 表示 停止 


グラ フィ ックス クリ ー ン の モー ド 設 定 


> パ レッ トレ ジス タ の 設定 
















グラ フィ ックス クリ ー ン の ドッ ト 列 の 読み 出し 


高速 書き 込み モー ド の 選択 





2. | グラ フィ ッ ク 画 面 の 表示 開始 
グラ フィ ッ ク 画 面 の 表示 を 開始 し ます . 

割 。 込 | 告 人 WT: きま 才 

F990H:2C43H 

| 入力 条件 | AH-40H 

な し 

|[ 酸 壊 な し 


潮 
演 


GDC に 対し て グラ フィ ッ ク 画 面 の 表示 開始 コマ ンド (0DH) を 与え , シス 
テム 共通 領域 PRXCRT (0000H:054C 耳 ) の ビッ ト 7 を セッ ト し ま 
この ビッ ト は , グラ フィ ッ ク 画 面 が 表示 中 で ある こと を 示す も の で す . 

処 理 
(1) GDC の ステ ー タ ス フ ラ グ を セン ス し , 垂直 同期 信号 が 発生 し , か つ , GD 
C の F IFO が full で な く な る まで 待つ . 
WAIT:IN AL 0A0HH 
XOR 欠 も ょ 2 0 持 
きよ 1 生生 た 22 日 
J NE WAIT 


ct 


| 


(2) GDC の コマ ンド レジ スタ に 画面 の 表示 開始 コマ ンド (0DH) を 与え る . 
MOV A 革 , 0 DH 
OUT 0A2H, AL 


(3 BIOS の ワー クエ リア PRXCRT (0000H:054CH) の ビッ ト 
7 を セッ ト す る 。. 
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グラ フィ ッ ク 画 面 の 表示 停止 


"を 生 基 

グラ フィ ッ ク 画 面 の 表示 を 停止 し ます . 
| 摘 … 各 | LRT/ISH 
F990H:2C5FH 

AH41H 

出力 条件 | な し 

[破壊 | な し 

解 。 説 


GDC に 対し て グラ フィ ッ ク 画 面 の 表示 停止 コマ ンド (0 CH) を 与え , シス 
テム 共通 領域 PRXCRT(0000H:054C 是 ) の ビッ ト 7 を リセ ッ ト し , 
グラ フィ ッ ク 画 面 が 表示 中 で な いこ と を 示し ます . 


4 
ー 


(1) GDC の ステ ー タ ス フ ラ グ を セン ス し ,。 GDC の FTIFO が full で な く な る 
まで 待つ . 
WAIT:IN AL, 0A0 昌 
と 大 ぬ 1 疾 も と 人 選 料 
J NE WAIT 


(2) CDC の コマ ンド レジ スタ に 画面 の 表示 停止 コマ ンド (0 CH) を 与え る . 
MOV 太ら 全 を 絆 
OUT 0A2H, AL 


(3) BIOS の ワー クエ リア PRXCRT (0000H:054CH) の ビッ ト 
7 を リセ ッ ト す る . 
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2 3 グラ フィ ックス クリ ー ン の モー ド 設 定 


機 能 | グラ フィ ッ ク 画 面 の カラ ー グ 白黒 , 表示 領域 , お よび 分 解 能 な どの 
設定 を 行ない ます . 

割 込 | INT 18H 

絶対 番地 | F990H:2C79H 

入力 条件 | AH で 42H 
CH 画面 モー ド 等 


本 AM 全 h 
前 邊 RMGUH 
EE 

0 : バン ク 0 を 使用 
1 : バン ク 1 を 使用 
カラ ー/ ノ 白黒 の 指定 
り よ 久 ラー 
1 .。 白黒 
VRAM 領域 の 指定 
二 まあ 得 放 まま 共 


1 0 LOWER 
ます < 上 謝 も 才 


[出力 条 件 | な し 
| 破 壇 | な し 
解説 


表示 バン ク の 指定 , カラ ー ノ 白黒 の 指定 , VRAM 領域 の 指定 を 行ない ます . 
PC 一 9 8 0 1E ノ F ノ M の 場合 は , 同じ アド レス 上 に 2 組 の グラ フィ ッ ク VR 
AM を 持ち , バン ク 切 り 換 た え で , どちら か 一 方 の 表示 また は 描画 が 可能 で す 。 B 
IOS で は , 表示 バン ク の 設定 の み を 行なう こと が で きま す . 描画 バン ク の 切り 
換え は , 直接 I プ O ポ ー ト を 制御 する (1. 5 参照 ) か し IO を 使う (3. 2 参 
照 ) 必要 が あり ます . PC 一 9 8 0 1 で は , 表示 バン ク の 指定 は で きま せん . 0 
を 入力 し て 下さ い . 
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VRAM 領域 の 指定 に は , LOWER, UPPER, ALL の 3 種類 が あり ま 
す . LOWER お よび UPPER は , VRAM 上 の 3 2 KB を 下 半 分 , 上 半分 の 
1 6 KB ずつ に 分 け , その 一 方 を 使っ て 640X200 の 分 解 能 を 実現 し ます . 
ALL は , 3 2 KB 全体 を 使っ て 6 40X40 0 の 分 解 能 を 実現 し ます . 
処理 
(1) GDC の ステ ー タ ス フ ラ グ を セン ス し , 垂直 同期 信号 が 発生 し , か つ , GD 

C の F IFO が 空 に な る まで 待つ . 
WAIT:IN AL, 0A0H 
区 人 D 攻 た も 。 24 
や BSP (人 ) ヶ 4 
JNE WAIT 


(2) I ノ 0 ポー ト (A 4 H) に CH の ビッ ト 4 に 従っ て 表示 バン ク を セッ ト す る . 
OUT 0 方 4 本, 邊 北 (0 また は 1) 


(3) モー ド フ リッ デア ロッ デレ ジス クタ (6 8 H) に C の ビ ピット 5 に 従っ て , カ 
ラー ノ 白 黒 を セッ ト す る 。. 
OUT 6 8 日 , AL 
だ た だ し , AL の 値 は な ダー" い の * 0 2 H 


(4) モー ド フ リッ プ フ ロ ッ プ レジ スタ (6 8 是 ) に ディ スプ レイ の 解像度 お よび , 
分 解 能 か ら 決ま る 値 を セッ ト す る . ディ スプ レイ の 解像度 は , シス テム 共通 
領域 の PRXCRT (0000H:054CH) の ビッ ト 6 に ある . 

OUT 6 8H, AL 
た だ し , AL の 値 は 高 解像度 (400) …… 0 8H 
高 解像度 (2 0 0) …… 0 9 H 
標 槍 (200) …… 0 8 日 


(5) 高 解 像 度 ア ディ スプ レイ の 場合 , 分 解 能 に 従っ て , GDC に 1 生 由 の 義 示 ゲオ 
ン 数 を CSRFORM コ マン ド で セッ ト す る , 
分 解 能 4 0 0 の 場合 …… 1 ライ ング 行 
分 解 能 2 0 0 の 場合 …… 2 ライ ング / 行 
MOV AL, 4BH 
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介 び 0 を 2 太 に AL 
MOV AL, 0 (or1) …= ニ ライ ン 数 一 1 
GFT 0.40 所 4 て 


(6) GDC に 表示 開始 アド レス お よび 表示 領域 の 大 き さ を SCROLL コ マン ド 
で セッ ト す る 。. 
〈 表 示 開 始 ア ドレ ス > 


LOWE ER … の ひ ………… 0) 
UPPER……1F40H (GDC ア ドレ ス ) 
AL Lt… の …i に に に に に ーー 0) 


GDC じ アド レス の 1 は , 2 バイ ト に 相当 する か ら , 1F 4 0 HH は, 
1 6 人 KK バイ ト を 意味 し て いる 。. 


(表示 領域 の 大 き さ > 
高 解像度 の 場合 …… 4 0 0 ライ ン 
標準 の 場合 ………… 2 0 0 ライ ン 


(1) 画面 モー ド を 6 4 0X4 0 0 の カラ ー に 設定 する . 
MOV AH。 42H 
MOV CH, 0C0OH 
更生 


(2) 画面 モー ド を 640X2 0 0 の 白黒 に 設定 する . VRAM 領域 は LOWER 
と する 。. 
MOV AH, 42H 
MOV CH, 0A0OH 
| 相本 -、 4 8 
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2 。 4 パレ ッ ト レ ジス タ の 設定 


機 能 | パレ ッ ト レ ジス タ に カラ ー コ ー ド を 設定 する . 白黒 の 場合 は , 表示 
画面 の 合成 , 選択 を 指定 する . 


| 割 込 | INT IsH 
[絶対 番 地 1| F990H:2D00H 
| 入力 条件 | AH43H 
D S て 引数 りー クエ リア の セグ ダメ ント ペ キ ス 
B X< 引 数 ワー クエ リア の オフ セッ ト ア ドレ ス 
[BX+4 て 7] に パレ ッ ト NO0. 7 て 0 に 対す る カラ ー コ ー 
ド を 設定 する . 対応 は 以下 の 通り で す . 





出力 条件 | な し 


な し 


[BX 十 47] に 用 意 き れ た カラ ー コ ー ド を パレ ッ ト レ ジス タ に 転送 し ます . 
カラ ー モ ー ド で は カラ ー コ ー ド 0 一 7 が 湊 の よう に 各色 に 対応 し て いま す . 

0 : 閉 。 1 : 者 2( あ 3 : 本 4 株 5 あい 相 名 6 も ミ 質 、 7 日 

白黒 モー ドド では, カラー コード は , 0 また は 7 の み が 許 され , 0 の と き は , 表 
示 OFF, 1 の と き は , 表示 ON を 意味 し ます . 白黒 モー ド で 画面 合成 を 行なう 


場合 は 。 パレ ッ ト レ ジス タ は , 以下 の よう に 設定 し ます . 
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菩 2 韻 3 韻 4 韻 5 6 





画面 合成 に 関係 する プレ ー ン を 〇 印 , 関係 し な い プ レー ン を メ 印 で 示し ます . 


[BX 十 4 一 7] の 内 容 を パレ ッ ト レ ジス タ (A8HーAEH) に 転送 する . 


だ ただし, パレット レジ スタ は , 下図 の よう に 本 ルー チン の 引数 と は , パレ ッ 
の 並び が 異な る の で , 順序 を 入れ 替え な が ら 転 送 する . 





4 セー キ y4 ヒ フュ 
A8H 半 3 填 7 
AAH 斗 1 填 5 
ACH # 2 斗 6 
AEH 斗 0 韻 4 





ト No 
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ーー 


サン プル 
パレ ッ ト レ ジス タ を 初期 状態 (パレ ッ ト 番 号 ニ = カラ ー コ ー ド ) に セット す る 。. 


NM 


MOV AX, 0060H 

MOV DS, AX 

MOV BX, 640H 

MOV BYTE [BX+†4」]。 67H 
0 澤 イイ を “[ せ え 千 きる 本 49 
MM\ も Y ョ ll 【 則 年 8 23 
情け BY† も [BSX キ リセ 0「 由 
MOV AH, 43H 

に 埋 す は 電 章 


2 5 ボー ダ ・ カ ラー の 設定 


ボー ダ カ ラ ー レ ジス タ に ボー ダ カ ラ ー を 設定 する . 
拉 。 !) TRNTTYB 
絶対 番地 | F990H:2D33H 
入力 条件 | AH44H 
D S< 引 数 ワー クエ リア の セグ メン ト ベ ー ス 
B X<- 引 数 ワー クエ リア の オフ セッ ト ア ドレ ス 
[BX 十 |] ボー ダ カ ラ ー コ ー ド 
bz bi bo 


[出力 条件 | な し 

|[ 酸 _ 壊 な し 

解説 

標準 ディ スプ レイ を 使用 し て いる 場合 に , ボー ダ カ ラ ー を ボー ダ カ ラ ー レ ジス 


タ (6 CH) に 設定 し ます . 専用 高 解像度 ディ スプ レイ を 使用 し て いる 場合 に は , 
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何 も せ ず 終 了 し ます . ボー ダ カ ラ ー と は , 画面 で デキ スト や グラ フィ ッ ク を 表 
示 で きる 範囲 より 外 の 部 分 に つけ る 色 の こと を いい ます . ボ ー ダ カラ ー コ ー ド は , 


上 図 の よう に 下位 4 ビット は , 常に 0 な の で , 0 0 HH, 1 0H, ……, 7 0 が , 
具 。 理 、…… , 日 に 対応 し ます . 


1) ディ スプ レイ が 高 解像度 か を 調べ , つま り , シス テム 共通 領域 の PRXCR 
T (0000H:054CH) の ビッ ト 6 が 1 な ら , 何 も せ ず に 戻る . 


(2) ボー ダ カ ラ ー レ ジス タ に ボー ダ カ ラ ー コ ー ド を 書き 込む . 
MOV AL, [BX 十 1] 
OUT に 末 、 し 


ポー ダグ ガラ ー に 黄色 を セット し ま 本 。 


MOV AX, 0060H 

MOV DS, AX 

MOV BX, 640H 

MOV BYTE [BX 二 |], 60H  : 黄色 
MOV AH, 44H 

INT 18H 
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ダマ フキ トッ 衝 ク レル レー へ の ) 
ドッ ト 列 の 書き 込み 


能 | グラ フィ ックス クリ ー ン ヘ ド ッ ト 列 を 書き 込み ます . 


| 割 込 | INT 18H 


多 対 番地 | F990H:2D4AH 
カ条 件 | AH 一 45H 


D S< 引 数 ワー クエ リア の セグ メン ト ベ ー ス 
B X< 引 画 ワ ー ク エリ ア の オフ セッ ト ア ドレ ス 
CH 対象 と する 描画 画面 の 指定 


br Be 8 040“ ご bB bb 切 


画面 ナン バ 
0 : ザ レレ サン 1 
まこ 務 び 常 ン ク 
0 ここ 字 ル サン 2 
し イツ グレ ルレ mー ル ミー ョ 
( 3 画面 同時 書き 込み ) 
描画 画面 範囲 
0 :LOWER ま た は ALL 
も 層 ま お 反 
解像度 モー ド 
0 :640※X200 
1:640X400 


搬 下 


画 
0 
0 
1 
1 


ES 一 ドッ ト ・ パ ター ン ・ バ パ バッファ の セグ メン ト ベ ー ス 
[BX 寺 0] 3 画面 同時 書き 込み の 場合 の 描画 モー ド 
(カラ ー の 場合 は パレ ッ ト 番 号 に 相当 ) 


bz も 4 bs b。 b。 bz b」 bp 


4 ドド ーーー ワ Re 


各 プ レー ン に 対し て 
クリ ア ま た は セッ ト を 
選択 で きる . 
0 に し 世 訟 劉表 
2 0 


さき 和 ユ 
0 3 8 
| まま 
。 定 - 
CS トド ト う ら ビ 


[BX 十 2] 単 一 画面 書き 込み の 場合 の 描画 モー 


b7 Bbe !Bbs b4。 bs bz。 も b」 b。 


NMMHHUuiIn ロ 


下位 2 ビッ ト で 4 種類 の WP 

モー ド を 選択 で きる . 0 1:COMPLEMENT 
(けし 生 肌 内 
1 1 


[BX+8 て 9] ドッ ト 列 の 書き 込み を 始め る スク リー ン X 座標 
(0 て 6 3 9 の 範囲 に ある こと ) 
[BX 寺 0AH て 0BH] ドッ ト 列 の 書き 込み を 始め る スク リー ン 
Y 座 標 (0 て 199or3 9 9) 
[BX+0CH て 0DH] 書き 込む ドッ ト 列 の 長 さ (ドッ ト 数 ) 
[BX+0EH て 0FH] 書き 込む ドッ ト パ タ ー ン の 先頭 オフ セッ 


ト アドレス 
な し 
な し 
[BX+2AH で て 3 9H] を 作業 領域 と し て 使用 し ます の で , 確保 
し て 下さ い . 


ES : [BX 二 0EH 一 OFH] で 指 さ れ る アド レス か ら 格 納 さ れ て いる ドッ 
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トバ パタ ー ン を ,。[BX 十 8 一 9] と [BX 十 0 AHー0BH] で 示さ れる X%, Y 座 
標 を 始点 と し て 下図 の よう に 書き 込み ます . 書き 込む せ ド ッ ト 列 の 長き は [BX 十 
0 CHー-0DH| に 与え ます . 


6 4 0 ドット 


次 の ライ ン に うつ る 





ドッ ト 列 の 長 さ 





レジ スタ C 是 に よっ て 対象 と する 描画 画面 を 指定 し ます . 3 画面 同時 書き 込み 
(C H の b。, b。 が 1 , 1 の と き ) か 否 か で 選択 で きる 描画 モー ド が 異な り ま す . 3 
画面 同時 の 場合 は じ C じ LEAR と SET の み , 単 一 画面 の 場合 は REPLACE, 
COMPLEMENT, CLEAR, SET の 4 種類 を 選択 で きま す . 以下 に そ 
れ ら の 動作 を 説明 し ます . 1 
(1) REPLACE : ド ッ ト パ ター ン を その まま 画面 に 書き 込む . 

ドッ フィ テージ 001]O0100 1 や の" 

描画 結果 り サ すす ませ サ 


(2) COMPLEMENT : ドッ トバ パタ ー ン と 描画 前 の 状態 と 排他 的 論理 和 (XX 
OR) を と っ て 画面 に 書き 込む . 


描画 前 の 状態 111001010…… 
ドッ トバ パタ ー ン 001101001…… 
描画 結果 110100011…… 


3⑨ CLEAR : ドッ トバ パク ボン が の と ころ が 0 と な る ドッ トバ パタ ダ ターン が 0 
の と ころ は , 描画 前 の 状態 X を 引き 継ぐ . 


ド Py ま メ パー ア 0 も まり まま 
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描画 結果 XX00X0XX0…… 


(4) SET : ドッ トペ パタ ー ン が 1 の と ころ が 1 と な る . ドッ トバ パタ ー ン が 0 の と 
ころ は , 描画 前 の 状態 X 々 を 引き 継ぐ . 


ドッ トバ パタ ー ン 001101001…… 
描画 結果 XX11XIXX1…… 


これ ら の 描画 モー ド は , 3 画面 同時 書き 込み の 場合 は [BX 十 0 ] で , 単 一 画 
面 の 場合 は [BX 十 2] で 指定 し ます . 


本 サブ ルー チン で は , GDC を 使用 せ ず , CPU か ら 直 接 グ ラフ ィ ッ ク VRA 
M (0A8000H-0BFFFFH) を 操作 する こと に よっ て , ドッ ト 列 の 書 


き 込 み を 行っ て いま す . 
(1) GDC が VRAM に 書き 込み 中 の と き は それ が 終了 する まで 待つ . 
WAIT1:IN AL, 0A0HH FIFO が 空 に な る 
動き すま ん も 。 す 4 まで 待つ . 
JE WAIT1 
WAIT2:IN AL, 0A0H 描画 中 フラ グ が 降り 
人 細 09 る まで 待つ . 


J NE WAIT2 


(2) X, Y 座 標 か ら VRAM 上 の 描画 開始 アド レス を 計算 する . 
ADRS= ニ X/8 十 Y*80 


(3) 書き 込み の 開始 点 お よび 終了 点 が , ちょ うど バイ ト 境 界 で ある と は 限ら な い 
の で , 始め と 終わ り は 特別 に 処理 する . その 中 間 で は , バイ ト 単 位 で 処理 する . 


(4) 1 ビット だ け の 書き 込み は , 高速 た に する た め , 別に 扱う . 


スク リー ン 座 標 (100, 50) に 黄色 の 点 を 打つ . 画面 モー ド は カラ ー で 6 
40X4 0 0 と する . 
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MOV AX, 0060H 


MOV DS, AX 


MOV BX, 640H 
MOV CH, 0B0OH 


MOV BYTE 
MOV WORD 
MOV WORD 
MOV WORD 
MOV WORD 


まえ お 8 

[BX+8], 6 4 
[BX+0AH], 
[B X 寺 0CH], 
[BX+0EH], 


る 料 と る 

地 ad 二 

MOV AH, 45H 
し に っ に 6 邊 
ORG 80H 

けけ) 本 馬 世 章 


: 黄色 
H  :X=106 
32H:Y=50 
| : 長 さ = | 


80H: オ フ セ ッ ト 


・ セグ ント 





1 


As . グラ フィ ックス クリ ー ン か ら の 
ドッ ト 列 の 語 売 み 出 問 


グラ フィ ックス クリ ー ン か ら ド ッ ト 列 を 読み 出し ます . 
割 込 | INT 18H 3 

_. | 釣 対 番地 | F990H:2EEAH 

"| 入力 条件 | AHー46H 

D S 引数 ワー クエ リア の セグ メン ト ベ ー ス 

B X< 引 数 ワー クエ リア の オフ セッ ト ア ドレ ス 
CH 対象 と する 描画 画面 の 指定 


bz be bs b。 bs bz bi bo 


em E 
sei 


・ プ レー ン 1ー3 
(3 画面 同時 読み 出し ) 
描画 画面 範囲 
0 :LOWER ま た は ALL 
ミポ す 生 胡 
解像度 モー ド 
0:640X200 
1:640X400 





ES ドッ ト パ タ ー ン :・ パ ッ ツ アァ テ の セグ デレ トペ ベ ペース 
[BX+8 て 9] ドッ ト 列 の 読み 出し を 始め る スク リー ン X 座 標 
(0 て 6 3 9 の 範囲 に ある こと ) 
[BX 十 0AH て 0BH」] ドット 列 の 読み 出し を 始め る スク リー ン 
Y 座 標 (0 て 199or399) 
[BX 十 0CH て 0DH] て 読み 出す ドッ ト 列 の 長 さ .( ド ッ ト 数 ) 
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[BX+10HC| 1H] 読み 出し た ドッ ト パ タ ー ン を 格納 する パ 
ター ン パ バッ ファ の 先頭 オフ セッ ト ア ドレ ス 
単 一 プレ ー ン の 場合 また は , 3 画面 同時 の 
場合 の プレ ー ン | 用 
[BX 二 12H て 13H] ーー プレー ン 2 か ら 読 み 出し た ドッ ト パ タ ー 
ン を 格納 する パタ ー ン バッ ファ の 先頭 オ 
セッ ト ア ドレ ス , 3 画面 同時 の 場合 の み 
[BX+14H ン 15H] プレ ー ン 3 か ら 読 み 出 し た ドッ ト パ タ ー 
ン を 格納 する パタ ー ン バッ ファ の 先頭 オフ 
セッ ト ア ドレ ス , 3 画面 同時 の 場合 の み 
な し 
な し 
[BX+2AH て 3 4H] を 作業 領域 と し て 使用 し ます の で , 確保 

し て 下 ま きい 。 
解説 “ 

[BX 十 8 一 9] と [BX 十 0AH-0 BH] で 示さ れる XX, Y 座 標 を 始点 と 
し て , 長き [BX 十 0CHー0DH] の ドッ ト 列 を パタ ー ン バッ ファ に 読み 込み 
ます 。 

単 一 プレ ー ン の み を 読み 込む と き (CH の bs, b。 が 1, 1 以外 の と き ) の パタ ー 
ン バ ッ ファ の アド レス は ,。 [BX 二 10 一 1 1] に 与え を ます. 3 プレ ー ン 同時 読み 
込み の と き (CH の b。。b。 が 1 , 1 の と き ) は, プレ ー ン 毎 に 対応 する パタ ー ン バ 
ッ フ ァ を 指定 し ます . 

本 サブ ルー チン で は , GDC を 使用 せ ず , CPU か ら 直 接 グ ラフ ィ ッ ク VRA 
M(0A8000H-0BFFFEFEH) を READ し て いま す . 

(1) GDC が VRAM に 書き 込み 中 の と き は それ が 終了 する まで 待つ . 


WAIT1:IN AL, 0A0HH FIFO が 空 に な る 
' 江 ま 者 務 あ も 。 を 4 まで 待つ . 

JE WAIT1 
WAIT2:IN AL, 0A0H 描画 中 フラ グ が 降り 
( TE る 表 も も: 093 る まで 待つ . 


J NE WAIT2 
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(2) X, Y 座 標 か ら V RAM 上 の 読み 込み 開始 アド レス を 計算 する . 


(3) 転送 は 先頭 を 揃え て バイ ト 単 位 で 行う 読み 込み 長 が 8 の 倍数 で な いと き は 
最後 の バイ ト の 余り ビッ ト は 不定 と な る . | 


2. 8 直線 お よび 四角 形 の 描画 


機能 | 
| 割 込 | INT 1I8H 
絶対 番地 | 





ADRS= ニ X/8 十 Y*8 0 











指定 され た 描画 画面 に 直線 また は 四角 形 を 書き 込む . 





F990H:2FB7H | 


件 | AH47H 


D S< 引 数 ワー クエ リア の セグ メン ト ベ ー ス 
B X< 引 数 ワー クエ リア の オフ セッ ト ア ドレ ス 
CH 対象 と する 描画 画面 の 指定 


半 bz bi bo 


bz 


be bs b4 


〇 





> プリー ン 1 と 9 
(3 画面 同時 書き 込み ) 

描画 画面 範囲 

0 :LOWER ま た は ALL 

#、 り PKK 
解像度 モー ド 

0 :640X200 

1 :640X400 
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E S ドット パ ター ン ・ バ パッ ファ の セグ メン ト ベ ー ス 
[BX 二 0] 3 画面 同時 書き 込み の 場合 の 描画 モー 
- b。 bk. bs b。 hb。 bz bi hb 





答 プ レセ ビン に 対 LC | し MD も の 
クリ ア ま た は セッ ト を プレ ー ン 2 

_ 選択 で きる . プレ ー ン 3 
0# し 上 到 A 選 
3 8 間 生 

[B X 十 2] < 単 一 画面 書き 込み の 場合 の 描画 モー 


bz be bs 4 bs bz bi bo 


HH EEHIT 


下位 2 ビッ ト で 4 種類 の 0 PP 

モー ド を 選択 で きる 。. も も OMELEME 針 
まさ 直し も 才 有 AK 
0 1 まう 条 電 当 


[B X 十 3] < 四角 形 の 描画 の 場合 , 描画 方 向 を 0 ^ 7 の 数 値 で 指定 
し ます . 詳し く は 次 ペー ジ を 御覧 下さ い . 
[BX 二 8 て 9] 描画 開始 点 の X 座 標 
(0 て 6 3 9 の 範囲 に ある こと ) 
[BX 十 0AH て 0 BH] 描画 開始 点 の Y 座 標 
(0 て 199or399) 
L[BX 寺 16HC17H] 描画 終了 点 の X 座標 
(0 て 6 3 9 の 範囲 で ある こと ) 
[BX 二 18H て |I9H] 描画 終了 点 の Y 座 標 
(0 て 199or399) 
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[BX 十 20H て 21H] 一 ラ イン スタ イル 
1 6 ドッ ト で ライ ンス タイ ル を 指定 し ます 。 書き 込 
む 直 線 の 長 さ が 1 6 ドッ ト を 超え る 場合 , この ライ 
ンス タイ ル が 1 6 ドッ ト 毎 に 繰返し 使わ れ ま す 。 
[BX 二 28H] - 描 画 タ イプ 
| : 直線 
2 : 四角 形 
な し 
な し 
[BX+2AH4 9H] を 作業 領域 と し て 使用 し ます の で , 確保 


し て 下さ い 、。 
レジ スタ C 是 に よっ て 指定 され た 描画 画面 に 直線 また は 四角 形 を 書き 込み ま 
す . 描画 は 描画 モー ド に 従っ て 1 6 ビッ ト の ライ ンス タイ ル と 描画 ! 則 画 と の 江 算 
結果 を 書き 込む こと に よっ て 行い ます . ( 
3 画面 同時 書き 込み (CH の bs, b。 が 1 , 1 の と き ) か 否 か で 選択 で きる 描画 モ 


@ 四 角形 の 拉 画 方 向 





ー ド が 異な り ま す . 3 画面 同時 の 場合 は CLEAR と SET の み , 単 一 画面 の 場 
合 は REPLACE, COMPLEMENT, CLEAR, SETT の 4 種類 を 選 
択 で きま す . 以下 に それ ら の 動作 を 説明 し ます . 
(1) REPLACE : ラ イン スタ イル を その まま 画面 に 書き 込む . 

ライ ンス タイ ル 001101001…… 

描画 結果 001101001…… 


(2) COMPLEMENT : ライ ンス タイ ル と 描画 前 の 状態 と 排他 的 論理 和 (X 
OR) を と っ て 画面 に 書き 込む . 


描画 前 の 状態 111001010…… 
ライ ンス タイ ル 001101001…… 
描画 結果 110100 0 1 1…… 


(3) CLEAR : ライ ンス タイ ル が 1 の と ころ が 0 と な る . ライ ンス タイ ル が 0 
の と ころ は , 描画 前 の 状態 X を 引き 継ぐ . 


オッス ガル | OOEIO1001…… 
抽 画 結果 ※X00X0XX 0…… 


(4) SET : ライ ンス タイ ル が 1 の と ころ が 1 と な る . ライ ンス タイ ル が 0 の と 
ころ は , 描画 前 の 状態 X を 引き 継ぐ 。 


ライ ンス タイ ル 001101001…… 
捕 画 結果 XX11X1XX1…… 


これ ら の 描画 モー ド は , 3 画面 同時 書き 込み の 場合 は [BX 十 0] で , 単 一 画 
面 の 場合 は [BX 十 2] で 指定 し ます . 


捕 画 方 向 は , 四角 形 の 描画 の 場合 重要 で , 値 に よっ て 結果 が 異な っ て きま す . 
画面 に 平行 な 四角 形 を 描く 場合 に は , 0 , 2, 4, 6 の いずれ か を 用 い , 4 5* の 
傾き を 持っ た 四角 形 を 描く 場合 に は 1 3 , 5, 7 を 用 いま す . また , 始点 か ら 終 
点 へ の 方 向 に よっ て その うち の どれ を 使う か は 一 意 に 決ま り ま す . 0 を 用 いる べ 
き 関 係 の と き , 例え ば (100, 50) 一 (2 00, 8 0 ) に 対し て ,。 他 の 値 を 用 
いる と どう いう 結果 が 得 ち られ る か を 次 に 示し ます . 
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(100, 50) 


(100, 50) 


(200, 80) 


(200, 80) 





0 を 用 いた 場合 2 を 用 いた 場合 


(100, 50) (100, 50) 


(200, 80) (200, 80) 





4 を 用 いた 場合 6 を 用 いた 場合 


直線 の 場合 は 描画 方 向 は どの 値 で も 正常 に 描画 され ます . 

本 サブ ルー チン は , 次 節 で 述べ る “円 放 の 描画 " と 同じ ルー チン を 使っ て いま 
す . [BX 十 2 8 是 ] に 設定 する 描画 タイ プ で 区 別して いる の で す . 本 サブ ルー チ 
ン で は , 2. 6 節 の “ドッ ト 列 の 書き 込み " と 異な り , 描画 は CDC を 使っ て 行 
な いま す . 以下 は , GDC に 対す る コマ ンド の 与え 方 の 説明 で す . . 

(1) GDC の F IFO が 空 に な る まで 待つ . 


WAIT:IN AL, 0A0 間 
導き まき 6 あし もん 租 半 
JE WAIT 


(2) GDC に ライ ンス タイ ル を セッ ト す る . TEXTW コ マン ド (7 8H) を 用 
いる . 第 1 章 で 説明 し た よう に GDC を 介する と ビッ ト 順 が 逆 に な る の で , ライ 
ンス タイ ル の 設定 で は あら か じ め テ ー ブ ル を 使っ て ビッ ト を 逆順 に し て いる . テ 
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! 
有 
1 
# 


どー ーー 


ーー ーー 
ーー PT ペン ーー バー マー ニーー ーー ンーー ニ ンプ バーニー ピー ニョ ニー ニン ここ デ ィ 


ーーー ニ ーー ニー ニー ニニ ーーーーーー ニ ーー ニニ ーー ニー ニー ーー ニー で = ニュ ーー - 
ーー- ー ー ニ ーー 


ー ブ ル は 0F990H: 36CAH か ら の 2 56 バ イト で ある 。. 


(3) 描画 モー ド (REPLACE, COMPLEMENT 等 ) を WR I TE コマ 
ンド で 設定 する . 


(4) X, Y 座 標 か ら 描画 開始 アド レス を 求め 、CSRW コ マン ド で 設定 する . 


(5) 描画 方 向 , 描画 種類 (直線 , 四角 形 等 )、 その 他 の 描画 に 必要 な パラ メー タ を 
VECTW コ マン ド で 設定 する . 


(6) VECTE コ マン ド で 描画 の 実行 を 指示 する . 


(100, 50), (200, 80) を 頂点 と する 四角 形 を 描き ます . カラ ー で , 
色 は 白 。 6 4 0X4 0 0 と し ます 。, 
MOV AX, 0060H 
MOV DS, AX 
MOV BX, 640H 
MOV CH, 0B0OH 


は V iT きき X よ 和光 : 白 

MOV BY サモ [BX+† す 3 1 : 描画 方 向 
MOV WORD [BX+†8], 64H : X= ギ 0 0 
MOV WORD [BX 二 0AH], 32H :Y=50 


MOV WORD [BX+16H]。 0C8H:X2=200 
MOV WORD [BX 二 18H], 50H :Y2=80 


MOV WORD [BX+20H], 80H テイ ジ ズ タイ ル 
PUJSH. 6 る : オフセット 
PP 上 る / 科 ヴ メ ント 
骨 け は BBV キ と [BX 十 28H],。 2 : 四角 形 
MA 料 。 4 / 

用 寺 。 | 相 
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円 弧 の 描画 


指定 され た 描画 画面 に 円 弧 を 書き 込み ます . 本 ルー チン で | 回 に 描 
ける 円 弧 は 円 の 8 分 の | で す . 円 を 描く に は , 本 ルー チン を 8 回 コ 
ー ル する 必要 が あり ます . 

INT 8H 


F 間 生計 
AH<48H 


2 8 7 判 


D S< 引 数 ワー クエ リア の セグ メン ト ベ ー ス 
B X で 引数 ワー クエ リア の オフ セッ ト ア ドレ ス 
CH 対象 と する 描画 画面 の 指定 


bz be 


Ds 陰 。 Be bu 


Ser 


0 シル レー 

0 まま . プ レー シテ 2 

- 甘 < ま 生 

和 能 キダ グル キル み ヨ ー3 

(3 画面 同時 書き 込み ) 

描画 画面 範囲 

0:LOWER ま た は ALL 

1 7U ま ず 部 表 
解像度 モー ド 


0 る な 0200 
1:640※X400 


ES ドット パタ ー ン ・ パ ッ フ ザ ア の セグ メン ネネ ペース 
[BX 十 0] 3 画面 同時 書き 込み の 場合 の 描画 モー 


(カラ ー の 場合 は パレ ッ ト 番 号 を 意味 する ) 
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8S 


b 


be bs b4 bs 
各 ブ レー ン に 対し て 1 
クリ ア ま た は セッ ト を プレ ー ン 2 
選択 で きる . も キン 


SC し EAAER 
ま 和 も 


bs bi bo 


[BX 十 2] 単 一 画面 書き 込み の 場合 の 描画 モー 


b bs。 bz bi bo 


be bs Db4 


下位 2 ビッ ト で 4 種類 の ーー 箇所 区 し ん に 尼 

モー ド を 選択 で きる . 0 1:COMPLEMENT 
1 0: し し じ AKR 
まお あま 


[BX 二 3] 描画 方 向 を 0 て 7 の 数 値 で 指定 し ます . 詳し く は 次 ペ 
ー ジ を 御覧 下さ い . 
[BX+ 8 て 9] 描画 開始 点 の X 座 標 
[BX+0AH て 0BH] 描画 開始 点 の Y 座標 
描画 開始 点 の X 座標 , Y 座標 は , 次 の よう に 定義 する . 
円 弧 の 中 心 (x, y), 半径 r に 対し て 描画 方 向 が 
8 の と き は 、 (メー「。 YY) 
4 す の と ま は 。 人 ん ヤセ 『。。\) 
1 。 る の と ま 人 は 。 (X。、 ザ ナー) 
2 5 の を きる は に (CX \ 寺 3. 


[BX 寺 0CH て 0DH」] < 描画 総 ド ッ ト 数 . 次 ペー ジ 図 中 の M に 相 
当 す る ドッ ト 数 を 与え ます . 





倫 円 迎 の 描画 


<ー ニ ーー 一 


4 
| 
| 
| 
| 
| 


し 


ーーーーーー フ 


ヽ 


SS 


| 


N 


描画 開始 点 











M 


(描画 方 向 


』 XX 十 が , 4。7 
6 才 。 すり) の と 


き ) 
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[BX 二 1AH ン 1BH] マス キン グ ド ッ ト 数 . 次 ペー ジ 図 中 の N 
に 相当 する ドッ ト 数 を 与え ます . 

[BX+1CHC1DH] < 円弧 の 半径 . 次 ペー ジ 図 中 の R に 相当 す 
る ドッ ト 数 を 与え ます . 

[BX 二 20H て 21H] ライ ンス タイ ル 
1 6 ドッ ト で ライ ンス タイ ル を 指定 し ま 
す . 書き 込む 円 弧 の 長 さ が 16 ド ッ ト を 
超え る 場合 、 こ の ライ ンス タイ ル が | 6 
ドッ ト 毎 に 繰返し 使わ れ ま す . 

[BX 二 28H] 描画 タイ プ 


4 : 円 弧 の 場合 は 常に 4 を 設定 する . 
な し 
な し 
[BX+2AH て 4 9H] を 作業 領域 と し て 使用 し ます の で , 確保 
し 和 下 を い , 

本 サブ ルー チン は GDC の 円 弧 描 画 機能 を 利用 し て 円 弧 の 書き 込み を 行なっ て 
いま す . 一 度 に 描く こと の で きる 円 弧 は 最大 で も 円 の 8 分 の 1 です . 円 弧 の 位置 
の 指定 は 少し 複雑 で , 描画 方 向 , 描画 開始 点 , 描画 総 ド ッ ト 数 (M), マス キン グ 
ドッ ト 数 (N), 半径 (R) を 指定 する こと に よっ て 行い ます . 

描画 開始 点 は 円 弧 の 中 心 と 描画 方 向 か ら 決ま り , 次 の よう に 定義 され ます . 

円 弧 の 中 心 (X, Y), 半径 r に 対し て 描画 方 向 が 
0、 3 の と き は な 還 年 - で 3 7 
を その らき ま は / (KR すう ず 3 
6 の の とき は (KM の FT 
の の の だ どる は ( 全 。 ず ) 

描画 総 ド ッ ト 数 (M)、 マス キン グ ド ッ ト 数 (N) は それ ぞ れ 開始 また は 終了 角 
度 (%, @%) と 半径 (R) か ら 求 まり ます . 

M ニ RSin 欠 
N= ニ RS in 

縦横 比 を 指定 する こと は で きま せん . 本 ルー チン で 描か れる 円 は 専用 高 解像度 
の と き に 正 円 と な り ま す . 標準 解 像 度 で は 正 円 は 描け ませ ん の で 注意 し て 下さ い . 

対象 と する 描画 画面 の 指定 , 描画 モー ド , ライ ンス タイ ル に 関し て は , 2. 8 
の 直線 , 四角 形 の 描画 と 同じ で す . 
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2 10 グラ フィ ッ ク 文 字 の 描画 


機能 8X 8 の ドッ ト パ タ ー ン を 指定 され た 知 形 領域 に 書き 込み ます . 書 
き 込 む 領 域 が 8 X 8 より 小さ いと き は , は み 出 し た 部 分 は 無視 され , 8 X 8 より 
大 きい と き は , 8 X 8 の ドッ ト パ タ ー ン が 繰返し 使わ れ ま す . ( 

割 込 | MT、、 オ . ま 着 


絶対 番地 F990H:32C3H 
入力 条件 | AH<49H 


D S<- 引 数 ワー クエ リア の セグ メン ト ベ ペース 
B X< 引 数 ワー クエ リア の オフ セッ ト ア ドレ ス 
CH 対象 と する 描画 画面 の 指定 


bz be bs b。 bs bz bi bo 
描画 画面 ナン バ 

0 0 に 、 ダ レセ は 1 

0 まき デ ヤ ー シ % 

ま も けっ プー シン き 

ーー ゲー 8 

( 3 画面 同時 書き 込み ) 

描画 画面 範囲 

0 :LOWER ま た は ALL 

まま まま 
解像度 モー ド 


0:640X200 
1:640X400 


下 


ES ーー ドッ ト パ タ ー ン ・ バ パッ ファ の セグ メン トト ペー ス 


[BX 十 0] で 3 画面 同時 書き 込み の 場合 の 描画 モー ド 


bz be 。 bs b4 .b。 bz bi hb 


各 プ レー ン に 対し て 0 
クリ サナ まだ は セッ ト を プレ ー ン 2 


選択 で きる . プレ ー ン 3 
たいじ も PP 長 
を ) 


[ B X 十 2] 単 一 画面 書き 込み の 場合 の 描画 モー 


bs。 bz bi bo 


b 


be bs b4 


下位 2 ビッ ト で 4 種類 の 0 3 9 

モー ド を 選択 で きる . 0 1:COMPLEMENT 
1 で も し 吾 ん 区 
まあ 得 入 1 ポリ 


[BX 二 3] < 描画 方 向 を 0 て 7 の 数 値 で 指定 し ます . 詳し く は 次 の 
ペー ジ を 御覧 下さ い . 

[BX+8 て 9] 描画 領域 の 左下 の X 座標 

[BX 十 0AH て 0BH] 描画 領域 の 左下 の Y 座標 

[BX 填 0CHC て 0DH] < 描画 領域 の 第 | 描画 方 向 ド ッ ト 数 . た だ 
し , 描画 領域 が 8 X 8 の 場合 は , 0 を 与え る . 

[BX 二 |EH ン 1FH] 描画 領域 の 第 2 描画 方 向 ド ッ ト 数 一 |. 
た だ し , 描画 領域 が 8 x 8 の 場合 は , 0 を 
与え る , 

[BX 二 20H て 27H] 一 8X8 の ドッ ト パ タ ー ン 


出力 条件 | な し 
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な し 
[BX+2AH3 2H] を 作業 領域 と し て 使用 し ます の で , 確保 
し て 下さ い . 

GDC の グラ フィ ッ ク 文 字 の 描画 機能 を 利用 し て ドッ トバ パタ ー ン の 書き 込み を 
行ない ます . ドッ トバ パタ ー ン は 8 ドッ ト X メ 8 ドット て 与え , 描画 領域 が それ より 
小さ いと き は , は み 出 し た 部 分 が 無視 され , また , 大 きい 場合 は , 同じ パタ ー ン 
を 繰り 返し 使っ て , 描画 領域 全体 を 塗り つぶ し ます . 

描画 方 向 で 指定 する 数 値 に よっ て ドッ トバ パタ ー ン を 描く 角度 を 変え る こと が で 
きま す . 直線 , 円 弧 な ど と 同様 に 書き 込み に あたっ て は 4 種類 の 描画 モー ド を 選 
択 で きま す . 各 モ ー ド の 動作 に つい て は 2. 8 の 解説 を 参照 し て 下さ い . 

GDC を 使っ て 描画 を 行っ て いま す . 以下 は その 手順 で す . 

(1) TEXTW コ マン ド で , 8X 8 の ドッ トペ ターン を GDC に 設定 する . 
(2) WRITE コマ ンド で , 描画 モー ド を 設定 する . 

(3) CSRW コ マン ド で , 描画 領域 を 設定 する . 

(4) VECTW コ マン ド で , 描画 方 向 を 設定 する . 

(5) TEXTE コ マン ド で , 描画 の 実行 を 開始 する . 


グラ フィ ッ ク 文 字 の 描画 方 向 
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in。 .』 





2. | | 高速 書き 込み モー ド の 選択 


機能 GDC か ら 描 画す る と き の タ イミ ング を フラ ッシュ モー ド ( 高 速 書 
き 込 み ) に する か , フラ ッシュ レス モー ド に する か を 選択 し ます . 
割 込 - 入 中 
| 絶 対 番地 | F990H:3467H 
入力 条件 | AH<4AH 
CH 描画 タイ ミン グモ ー ド の 設定 


by bk. bk b4。 bs。 b。 bi) bw 





0 : フ ラッ シュ 描画 (高速 書き 込み ) 
1 : フ ラッ シュ レス 描画 


[本 壊 | な し 
解 説 


GDC か らら グラフィック RAM に 描画 する タイ ミン グモ ー ド に は , フラ ッシュ 
モー ド と フラ ッシュ レス モー ド の 2 種類 が あり ます . フラ ッシュ モー ド で は , デ 
ィ ス プレ イ へ の 表示 期間 に は 描画 を 行ない ませ ん . フラ ッシュ モー ド で は , ディ 
スプ レイ へ の 表示 期間 に も 描画 を 行なう の で , 画面 が ちら つき ます が , 描画 速度 
は ほぼ 5 倍 に な り ま す . 


処理 | 


SYNC コマ ンド で 。 描画 クイ ミン グモ ー ド を 設定 し ます 、 
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直 う 草 
pr ピル ノン ま 結 1 北 

















を 


aoTakwiosoeh LaRc3SKCSe ま 








OS Mr 








eee だ か で ベーー 


八 短 











3. 0 LIO の 概要 


第 0 章 で 説明 し た よう だ に , PCー9800 シ リー ズ 
の ソフ トウ ェ ア 構 造 は 階層 的 に な っ て お り , BASI 
C の すぐ 下 に 位置 し . BASIC コマ ンド の 下請 け 作 
業 を する と ころ が , L IO (Logical Input Output) 
と 呼ば れる サブ ルー チン の 集まり で す . グラ フィ ッ ク 
L IO の 各 サ ブ プルー チン は 1 7 種類 あり , BASIC 
の コマ ンド に ほぼ 1 対 1 に 対応 し て いま す . マシ ン 語 
で , BASIC の グラ フィ ッ ク 機 能 を 実現 し た い 場 合 
に は , L IO を 使用 する の が 最も 便利 で し ょ う . L 10 の 位置 付け 


NN 絆 一 ASIC 







L10 ル ー チ ン と 対応 する BAS 1IC コマ ンド 


な た 
SCREEN 
VIEW 
COROR 
COLOR=( 、) 
は を お 2 
PSET, PRESET 
LINE 
CIRCLE 
PAINT (単色 ) 
PAINT (タイ ル ) 
GET 
ササ ー バ (グラフ イッ ク ) 
PUT (漢字 ) 
ROLL 
?= ニ POINT ( , ) 
寺 : も 








CINIT 
GSCREEN 
GVIEW 
GCOLOR1 
GCOLOR2 
G6LS 
GPSET 
GLINE 
は すま いし を 
GPAINT1 
GPAINT2 
GGE 
GPUT1 
GPUT2 
GROLL 
GPOINT 
GCDPY 
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口 L 10 の 呼び 出し 方 法 

I NT 命令 に よる ソフ トウ ェ ア 割 込 を 使っ て 呼び 出し ます . 割 込 番号 は , 表 に 
示す よう に , 0A1 芋 一 0AFH と 0 CEH で す 。 引数 は ほとん どの 場合 ,。 メモ 
リ に 入れ て 渡し ます が , その 先頭 アド レス を DS : BX レ ジス タ が 指す よう に し 
ます 。 また, L 10 で は , デー タ セ グ メ ント 上 の 特定 の 領域 を ワー クエ リア と し 
て 使用 し ます の で , その 領域 は 確保 し て お か な く て は な り ま せん . 


填 0 十 620 有 H 填 6A0H 十 1000H 十 1200H 十 1380H 填 1400 昌 H 





プイ み ウ Li 0 ワー クタ エリ ア 


ワー クエ リア は , デー タ セ グ メ ント 上 の 3 つの 領域 に 分 散 し て いま す . 必ず 確 
保 し な く て は な ら な い の は , DS: [620H-ー-69FH] お よび DS : [10 
00H-11FFH]| で , GCOPY を 使用 する 場合 は , さら に DS: [138 
0Hー13FFH|] が 必要 と な り ま す . 


<N88 一 BASIC か ら LIO を 使う 場合 > 

DS=60 是 と し て くだ さい . 既に 領域 が 確保 さき れ て いま す の で , ワー クエ 
リア に 気 を 使う 必要 は あり ませ ん . 引数 エリ ア と し て は , 1 5 0 AH か ら の 領域 
を 使う こと が で きま す . 

< く CP/M ま た は MS 一 DOS か ら L IO を 使う 場合 > 

1 4 0 0 バイ ト (GCOPY を 使わ な い 場 合 は 1 2 0 0 バイト) の 領域 を 
確保 し て その 先頭 アド レス を DS に 入れ て 下さ い . 引数 エリ ア も デー タ セ グ メ ン 
ト 上 に 確保 し て 下さ い . 図 中 の 未 使用 領域 を 使う ) こ と も で きま す . 


レジ スタ は , DS, SS, SP を 除い て 破壊 され ます . 必要 な レジ スタ は , 呼 


び 出 す 前 に 退避 し て お いて くだ さい . L IO か ら 戻 っ た と き の 終 了 条 件 は レジ ス 
タム A 是 に セッ ト さ れ て いま す . AH が 0 な ら 正 常 終了 , 0 以外 な ら 異 常 終 了 で す . 
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一 般 的 な 呼び 出し の コー ディ ング は 次 の よう に な り ま す . 


PUSH レジ スタ s 必要 な レジ スタ の 退避 

MOV AX, デー タ セ グ メ ント (例え ば , 60H) 

MOY. DDS。 AX 

MOV BX, 引数 エリ ア 先 頭 ア ドレ ス (例え ば , | 50AH) 
INT 割 込 番号 

CMP AM, 0 終了 条件 チェ ッ ク 

POP レジ スタ Ss レジ スタ の 復帰 

JNE エラ ー 処 理 


口 L 10 の 座標 系 

L I O で 用 いる 座標 系 は , N88 一 BA S IC の スク リー ン 座 標 に 相当 する も の 
で す 。 画面 の 左上 が (0, 0), 右 下 が (639, 199or3 9 9) と な り ま す . 
L I O で 指定 する 座標 は すべ て この スク リー ン 座 標 を 使い ます . 


(0.0) 


画面 
ン (639. 199 or 399) 


L 10 の 座標 系 


ロメ モリ マッ プ 

L 1 0 の 処理 ルー チン は , R OM 上 の 実 ア ドレ ス 0F9 9 0 0 HH から に あり ま 
す . 先頭 か ら 4 8 バイ ト に は , 各 処 理 ル ー チ ン の エン トリ アド レス の テー ブル 
が あり , シス テム の 起動 時 に は この テー ブル を 参照 し て L I O の 割込み ベク トル 
テー ブル が 作ら れ ま す . 
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00000H F9900H 
0 
デー プル 
+4 8 本 


GINIT 


GVIEW 


な C 告 S 
re 介 こ すし 者 6 


GCOPY 


F9900HH 


ン 
ジル 9 用 時 


F ド FEFFF 時 


G) 1 の や 
だ 3 ま て ) の 
〇 1 の の 〇 の 
きっ の 
eo 間 生 皿 
t | 只 加 
トト つう コト ルー ン 


メモ リマ ッ プ 


口内 部 割 込 INT C5H 

L I O の 処理 ルー チン の うち 比較 的 時 間 の か か る も の は , 途中 で 処理 の 中 断 が 
可能 と な る よう に , 処理 ルー チン の 中 に 内 部 割込み INT C5H 命 令 が 埋め 込 
まれ て いま す . で すか ら , ユー ザー は 割 込 番号 0 C 5 古 に 対す る 処理 ルー チン を 
用 意 し な く て は な り ま せん . 勿論 , 全く 中 断 の 必要 等 が な い 場 合 は , C 5 H の 割 
込 ベ クタ が I RET 命令 を 指す よう に すれ ば いい わけ で す . N88 一 BASIC を 
起動 きせ た 状態 で は , C 5 是 の 割 込 ベ クタ は STOP キ ー に よる 中 断 処理 の ルー 
チン を 指し て いま す . この ルー チン で は , STOP キ ー が 押 き れ て いる と , た だ 
ち に BASTIC の コマ ンド 待ち 状態 に 戻る よう に 作ら れ て いま す . BASIC 上 
で L I 0 を 利用 する 場合 で ,。 か つ , S TOP キー に よる 中 断 を 望む 場合 は , この 
まま で も 使え ます が , その 他 の 場合 は , 必ず ユー ザ が 割 込 処 理 ル ー チ ン を 用 意 し 
て 下さ い . 次 に この 割 込 処理 ルー チン の 作成 例 と 設定 方 法 に つい て 述べ ます . 
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[INT C5H 割 込 処理 ルー チン 作成 例 ] 
この ルー チン で は , STOP キ ー が 押さ きれ て いる と 描画 処理 を 中 断 し て L IO 
の 呼び 出し へ 戻る と いう 処理 を し ます . 


0000 50 PUSH AX 

0001 53 PUSH BX 

0002 51 PUSH CX 

0003 52 PUS 昌 DX 

0004 55 PUSH BP 

0005 56 PUSH SI 

0006 1E5 PUSH DS 

0007 06 PUSH ES 

0008 31C0 XOR AX, AX 

000A 8ECO MOV ES,AX STOP キ ー が 押さ きれ た か どう か を 
000C CD83 INTF 83 調べ る 。 

000E 『7064A040080 TEST WORD [044A] ,8000 

0014 07 POP ES 押さ れ た 場合 …2Z フ ラグ リセ ッ ト 
0015 1F POP DS Pi う は 
0016 5E POP SI Mao 、 
0017 5D POP BP 

0018 5A POP DX 

0019 59 POP CX 

001A 5B POP BX 

001B 58 POP AX 

001C 7404 JE 0028 トー- ニ ・ー ーー ニー ーーーーーー- ーー 押さ き されない 場 合 は 2 8H へ 
001E 8B260410 MOV SP, [1004] SP と BX を LTIO が コー ル さ れ た と き の 
0022 8B1E0610 MOV BX, [1006] 状態 に 戻す 

0026 B400 MOV AH,00 ト 

0028 CF IRET 


BASTC で で は, STOP キー 押下 の チェ ッ ク は IN 8 3 を 使っ て 行 な 
えま す . 他 の 0 S 上 で は , 次 の よう に し て 行ない ます . 

・ 割 込 番号 0 6 に 対す る STOP 割 込 処理 ルー チン を 作成 し , そこ で STOP 
FLAG を セッ ト す る . 

・ 割 込 番号 0 C 5 H の 処理 ルー チン の 中 で STOP-FLAG を チェ ッ ク す る . 


割 込 処理 ルー チン の 中 か ら , 呼び 出し 元 へ 直接 制御 を 戻す こと は , スタ ッ ク ポ 
イン タ の 値 を コー ル さ れ た と き の 状 態 に 戻す こと で 実現 し て いま す . GCI RC 
LE, GPAINT 等 の L IO ルー チン で は , それ ぞ れ の ルー チン の 先頭 で スタ 
ッ ク ボ ポイ ンタ の 値 を 退避 し て いる の で それ を 使っ て いま す . 

割 込 処理 ルー チン が 完成 し た ら , その 先頭 アド レス を 割 込 ベ クタ ・ テ ー ブ ル に 
セッ ト し ます . INT C5 是 に 対応 する 割 込 ベ クタ ・ テ ー ブ ル は 0 0 0 0H: 
[0 3 1 4Hー0 3 1 7 H] で す . 


101 


3 | ね 衝 必 十 重 - ( 旬 み フフ ャ wi 外 - ひ 人 の 初期 化 ) 


グラ フィ ッ ク L 10 の 初期 化 を 行ない ます . 

絶対 番地 | F990H:0048H 

| 割 込 | INT AOH 

D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
(通常 006 0H) 

| 引 数 | な し 

出力 条件 | AH0 

DS, SS, SP を 除く すべ て 


潮 


グラ フィ ッ ク L IO を 使用 する 場合 は , 最初 に 一 度 だ け G IN1IT を 実行 し な 
けれ ば な り ま せん . G INIT で は 溢 の 処理 を 行っ て いま す . 
(1) パレ ッ ト 番 号 の 初期 化 (0 - 7 を 黒 , 青 , 赤 , 紫 , 緑 , 水色 , 黄 , 白 に 
対応 させ る .) 
(2) 画面 モー ドー 0 (カラ ー グ ラフ ィ ッ ク 640X200) 
(3) 画面 スイ ッ チ < 0 (グラ フィ ッ ク 表 示 ON, 高速 書き 込み な し ) 
(4) アク ティ ブ 画 面 - 0 (プレ ー ン 1 を 選択 ) 
(5) ディ スプ レイ 画面 一 1 (プレ ー ン 1 を 選択 ) 
(6) バッ ク グ ラウ ンド カラ ー<- 0 ( 黒 を 選択 ) 
(7) ボー ダー カラ ーー 0 (上 暴 を 遂 択 ) 
8) フォ アグ ラン ドカ ラー ィ 7 て 幅 を 大 択 ) 
N88 一 BAS 1IC で は , 起動 時 に G INIT を 実行 し て いま す . 


処 理 

G INIT で は , まず , DS : [626Hー62DH] の カラ ー パ レッ ト の 格 
納 エ リア に それ ぞ れ 0 一 7 を スト ア し , GSCREEN (INT A1H) 及 
び GCOLOR1 (INT AS3H) を 呼ん え で いま す . 


グラ フィ ッ ク L IO の 初期 化 を 行い ます . 
MOV AX, 0060H 
MOV DS, AX 
INT 0AOH 
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3 2 )- 條 生 C 貞 E を だ NN 
(クラ フィ ッ ク 画 面 に 対す る モー ド 設 定 ) 


画面 モー ド , 画面 スイ ッ チ , アク ティ ブ 画 面 。 デ ィ ス プレ イ 画 面 を 
設定 する . 

| 絶 対 番地 | F990H:0087H 

割 。 込 | INT_ AIH 


D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン ト ベ ペース 

B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX 二 0] < 画面 モー ド 

[BX 二 |] < 画面 スイ ッ チ 

[BX 二 2] アク ティ ブ 画 面 

[ B X 十 3 ] ディ スプ レイ 画面 


DS : BX 十 0 十 1 2 wi 





出力 条件 | AH 終了 条件 (0 な ら 正 常 終了 ) 


[出力 条件 | 
D S, SS, SP を 除く すべ て 
解説 


_N88 一 BASIC の SCREEN ス テー トメ ント に 対応 し て いま す . 各 引 数 の 
意味 も BASIC と 同じ で す . た だ し , ya と で 表わし 
ます . 各 引 数 の 詳細 を 次 に 示し ます . 
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(|) 画面 モ ー ド 


SMCII 
eeeeeed | 


(2) 画面 スイ ッ チ 


中 90CJHKN 
岬 Cr 
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③ アク ティ ブ 画 面 





〈④⑭) ディス プレ イ 画 面 










画面 モー ド ご と の 意味 


人 ーー 
LA | まく 2 しない | 
| 1 トー2o み ドー294 寺 |K29 球 | 2192 
2 に 202 ドー2209 上 94 球 |  x 
13 | x に ta に ta 前 ま |  x 
4 | x トド 20 寺 | に 2oe 疾 |  : 
5 |  x トド に 20a 時 Ko2udee 示 |  : 
6 |  x ドー24946 あ |  x 
9 ジ 表 示 ペー ジ 表 示 
示 


TU 







| 8 | 全 ペ ー ジ 表示 し な い 全 ペー ジ 表 示し な い | 全 ペー ジ 表 示し な い | 全 ペ ー ジ 表示 し な い 
10|  x |^20 款 


NO 
7 バーツ.3 を 合成 示 | ペ ー ジ 1.23 を 合計 | 。 X 


※ 印 : 指定 不可 
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ページ 4.5.6 を 全 記 表 示 X 
ペー ジ 3 の み 表 示 ペー ジ 2 の み 表示 
X ペー ジ 4 5 を 合成 表示 
ゃ の 
ジ 7.9 を 合成 
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ペー ジ 9 の み 表 示 ペー ジ 6 の み 表 示 
ペー ジ 7.9 を 合成 表示 | ペー ジ 4.6 を 合成 表示 
ペー ジ 8.9 を 合成 表示 | ペー ジ 5.6 を 合成 表示 
サジ 3 "9 口 直 


X ペー ジ 7 8 9 を 合成 表示 | ペー ジ 45.6 を 合成 表示 9801 で は 
内 全 ペ ー ジ 表示 し な い 指定 不可 


合成 表 直 


ペー ジ [0 12 を 合成 表示 


ペー ジ 表 示し な い | 全 ペ ー ジ 表示 し な い | 全 ペー ジ 表 示し な い 





で) 
こ ! 





引数 が FFH の と き は 今 ま で の 状態 を 引継 ぐ 。 
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3. 3 GVIEW (描画 領域 の 指定 ) 


| 機能 | アク ティ ブ 画 面 内 の 描画 領域 (ビュ ー ポ ー ト ) を 指定 し ます . ま 
た , ビュー ポ ー ト 内 の 塗り つぶ し , 外 枠 の 描画 も 行ない ます . 以後 , 
図形 描画 は , ビュ ー ポ ー ト 内 に の み 行 な われ ます . 

| 絶 対 番 地 | F990H:037BH 

割 込 | INT A2H 

D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン トペ ベー ス 
B X<- 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 

引 数 | [BX 二 0 て |] 左上 の X 座 標 (X1I) 
[BX 二 2 て 3] 左上 の Y 座 標 (YI) 
[BX+4 て 5] で 右 下 の X 座 標 (X2) 
[BX+6 て 7] て 右 下 の Y 座 標 (Y2) 
[BX+8] 領域 色 (省略 の 場合 は , FFH を 指定 ) 
[BX 二 9] < 境界 色 (省略 の 場合 は , FFH を 指定 ) 


キ 生 “ 叶 9 





6 
領 | 境 
舌 ・ 域 | 界 
色 | 色 
引数 は 次 の 関係 を 満た すこ と . 
[ (I) 0 者 28KXAS お 厚 9 
(2) 0 ミ YI く Y2 ミ 199 (また は 399 高 分 解 能 の 時 ) 
AH<0 (正常 終了 ) 
AH<5 (引数 の 誤り ) 
| 破壊 | DS, SS, SP を 除く すべ て 
BASIC の V IEW ス テー トメ ント に 対応 し て いま す 。 領域 色 , 境界 色 の 指 
定 を 省略 する と , 領域 天 の 塗 りつ ぶし , 外 枠 の 描画 は 行ない ませ ん . 領域 色 , 境 
界 色 の 指定 は , パパ レッ ト 番 号 で 行ない ます . 
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(639, 199or399) 


(1) [BX 圭 8] が FF 是 で な い 場 合 , 短 形 領域 の 塗り つぶ し ルー チン を コー ル 
の 4 し 放し 、 3 49P は ) 

(2) [BX 十 9] が FF 是 で な い 場 合 , 外 枠 の 描画 を 行なう . こ れ は , BIOS の 
直線 描画 ルー チン を 4 回 コー ル す る こと で 実現 し て いる . 

(3) ビュ ー ポ ー ト 座標 の 格納 領域 DS :[0 6 2EH-0 6 3 5H] へ の 設定 を 
行なう . 


ビュ ー ポ ー ト を (100, 50) 一 (5 0 0, 15 0) に セッ ト し , 外 枠 を 赤 
で , 内 部 を 青 で 塗り つぶ す . 

MOV AX, 0060H 

MOV DS, AX 

MOV BX, |150AH 

MOV WORD [BX], 64H :』=100 
MOV WORD + キ 且 迷 必 20H 3 2 村 z : ル パオ ョ 箇 0 
MOV WORD [BX+4], IF4H:X2=500 
MOV WORD [BX+6], 96H :Y2=I50 


MOV BYTE  [BX 二 8], | : 領域 色 = 青 
MOV BYTE  [BX+ キ 9] 2 : 境界 色 = 赤 
INT 0AZH 
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3. 4 GCOLORI (各部 の 色 を 指定 ) 


機能 | バッ ク グ ラウンド カラー, ボー ダー カラ ー, プ ォ アグ ラウ ンド カラ 
ー を 指定 し ます . 
[絶対 番 地 | F990H:050CH 
INT A3H 
| 入力 条件 | D S 一 グラ フィ ッ ク L10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX 十 1] パッ ク グ ラウ ンド カラ ー (パレ ッ ト 番 号 で 指定 ) 
[ B X 二 2 ] 一 ボー ダー カラ ー (カラ ー コ ー ド で 指定 ) 
[ B X 二 3 ] ー フ ォ ア グラ ンド カラ ー (パレ ッ ト 番 号 で 指定 ) 
FFH を 指定 する と 今 ま で の 状態 を 引継 ぐ . 


DS : BX 十 0 に 中 十 き 





上 る 上 k。 半 事 


BASIC の [1] GCOLOR ス テー トメ ント に 対応 し て いま す . た だ し , 
テアン 径 ショ ンコ ー ド の 設定 は GCOLOIR 1 で は で きま せん . 

ソバ ッ ク ググ ラウ ンカ ラー と は , 地 の 色 の さと で 。 GCCLS で 消去 し た と き 
は , この 色 で 塗り 変え られ ます . 

< く ボ ー ダ ー カ ラー> と は , ディ スプ レイ の 表示 可能 範囲 外 の 色 の こと で す . 専 
用 高 解像度 ディ スプ レイ 使用 時 は , ボー ダー カラ ー を 指定 し て も 色 を 付け る こと 
が で きま せん . ボー ダー カラ ー の み , パレ ッ ト 番 号 で は な く , 直接 カラ ー コ ー ド 
で 指定 し ます . ( 

く 〈 く フ ォ ア グラ ンド カラ ー> と は , 図形 を 描く と き に 使わ れる 色 の こと で す . 
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1 りり パッ ク グ ラン ド 方 プー を リーク エサ アー する も H] に 設定 する 、 

(2 た 。 ポ ーー な 孝二 を ワー タ エ り DS : [6 4 1H| ト ね 読 定 し 。, B ED S 洋 。 
ゲー カラ ー の 設 党 を ゴー ル す る 。、 

(3) フォ アグ テラ ンド カカ ラー を ワー クエ リア お め $ : [6 23 中 】) に 設定 天 衝 : 


4S54 ん も の ステ マト メン ト し OLOR 。, 2。 3,。4. を 機械 語 で 実現 し 
ます 


MOV AX, 0060H 

MOV DS, AX 

MOV BX, |I50AH 

MOV BYT 色 [LBX 二 |]、 2 : パッ クダ グラ 小 ン 志 カ ラー 
MOV BYTE  [BX 十 2], 3 : ボー ダー カラ ー 

MO V 二子 衝 [XX ルト 3 こ ん: フォ アグ ラン ドカ ラー 
INT 0A3H 
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3. 5 GCOLOR2 (カラ ー パ レッ ト の 変更 ) 


機 能 | パレ ッ ト 番 号 と カラ ー コ ー ド の 対応 付け を 変更 し ます . 
| 絶 対 番 地 | F990H:054BH 
割 込 | INT A4H 
D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン トペ ベース 
B X<- 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX 填 0] パレ ッ ト 番 号 
b ほ た キト で ラー ロカ ロード 


DS : BX 十 0 十 1 





パレ ッ ト 番 号 , カ ラー コー ド は , 0 て 7 の 範囲 を 厳守 する こと . こ 
の サ ブル ー チ ン で は , 引数 の チェ ッ ク を し て いな い の で , ワー ク 
領域 を 壊す 私 れ が あり ます . 

入力 条件 | AH0 

内 で な ル の 生ま を 旭 

解説 

BASTIC の ステ ー ト メン ト 1 1 で ry ) 

に 対応 し て いま す . 

英理 

(1) ワー クエ リア DS: [6 2 6H 一 | を 書き 換え る . 

(2) BIOS カ ラー パレ ッ ト の 設定 を コー ル す る . 


カラ ー パ レッ ト を 初期 状態 に 戻す BAS 1IC の プロ グラ ム を 機械 語 で L IO を 
使っ て 機械 語 で 実現 し ます . 
[BAS IC プ ログ ラム ] 
189 FOR | まき * イ 呈 テ 7 
2 0 COLOR ぁ (1 だ) 
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30 | 内 E 基 も 


[機械 語 プ ログ ラム ] 


LOO0P: 


112 


MO YV 
M 0 V 
M 0 V 
M 0 V 
M 0 V 
M 0 V 
INT 
DEC 
JGE 
IRET 


AX, 0060H 
DD な: だ 

BX, 150AH 
者 』 半 
[BX3i で 音 
LBX 寺 | 1 で 中 
0A4H 

CH 

LO00P 


ナ 


か 


7 


: て 判 寺 叶 


パレ ッ ト 番 号 =CH 
ガ カラー コー ドミ = テ CH 


:GCOLOR2Z 
CH= ニ CH 一 | 
人 "0 





3. 6 GCLS (描画 領域 の 消去 ) 


GVIEW で 設定 され た 描画 領域 を 消去 し ます . カ ラー モー ド の と 
き は バッ ク グ ラウ ンド カラ ー て 塗り つぶ し ます . 

絶対 番地 | F990H:05ACH 

INT A5H 

D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 

な し 

AH で 0 

DS, SS, SP を 除く すべ て 


洛 || 圧 | 定 || ヶ | 陸 
十 十 
溢 溢 

靖 || 斑 | 難 || 王 || 記 


民 
に 


BASIC の CLS 2 に 対応 し ます . BASIC と 同様 。 ビ ュー ポ ー ト が 設 
定 さ れ て いる 場合 は 。 ビュ ー ポ ボー ト 内 の み 消 去 さ れ ま す . 


【 
昌 


描画 領域 が 画面 全体 か 否 か で 処理 が 異な り ます . 画面 全体 の 場合 は , 一 括 し て 
0 また は FFFF 昌 を 書き 込み だ け で 済み ます か ら , 非常 に 高速 に 処理 され ます . 
GV I EW で 描画 領域 を 画面 の 一 部 に 設定 し て いる 場合 は , 領域 判定 の た め 処理 
速度 は 遅く り ま す . 

[ビュ ー ポ ー ト を 設定 し て いる 場合 ] 

(1) 息 形 領域 の 塗り つぶ し ルー チン を コー ル す る . (CALL 3 4 9EH) 


[ ビ ピュー ポート を 設定 し て いな い 場 合 ] 
(1) 0 また は FFFFH を ワー ド 単 位 で 書き 込む . (REP: 
STOSW 


(2) カラ ー の 場合 は , (1) の 処理 中 , グラ フィ ッ ク 画 面 の 表示 を 止め る 。 


サン プル 
BASIC の ステ ー ト メン ト CLS 2 を 機械 語 で 実現 し ます . 


MOV AX, 0060H 
4 前 培 * 
INT 0A5H 
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32 すす 5 : 和 有 PSE 千 【 ド ッ ト の セッ ト ・ リ セッ ト ) 


機能 | 描画 領域 内 の 任意 の ドッ ト の セッ ト ・ リ セッ ト を 行う . 
[絶対 番 地 | F990H:06D9H 
割 込 | INT A6H 
D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
AH 一 | (PSET) また は 2 (PRESET) 
引 数 | [BX+0 て |] 一 X 座 標 
[BX 二 2 て 3] Y 座 標 
[BX 十 4] パレ ッ ト 番 号 (省略 する と き は FFH) 


DS : BX 十 0 十 2 十 4 十 5 





AH ご 0 
DS, SS, SP を 除く すべ て 

BASIC の PSET, PRESET に 対応 し ます . AH が 1 の と き , PSE 
T, AH が 2 の と き , PRESET と な り ま す . ドッ ト の セッ ト ・ リ セッ ト は , 
GV IEW で 指定 し た 名 域 内 で の み 行 な われ ます . パ レッ ト 番 号 を 省略 (= ニ FFH) 
する と , PSET で は , フォ アグ ラウ ンド カラ ー が , PRESET で は , バッ ク 
グラ ワン ドカ ラー が 使わ れ ま す , 


だ らし ユル ー チ ンコ うー ルル する 。 (し た し し えま 5D 玉 ) 


スク リー ン 上 座標 (1 0 0, 50) に 点 を 打つ . 
[BASIC ス テー トメ ント ] 
PSET (IO0, 50) 
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[機械 語 プ ログ ラム ] 


湊 Or 


MOV AX, 0060H 

MM 半 、DS. AX 

MO V BB 放 。 |! 8 人 せ 上 AH 

MOV WORD [BX], 6 4H >:X= ニ IOOD 
MOY-W9RD) ま 人 美人 4 ト 322H .:Y=5.0 
MOV BYTE  [BX 十 4]。 0FFH: 省略 


MOV AH, | :PSET 
INT 0A6H 
は 上 、 衝 も 


(直線 , ボッ クス の 描画 , 塗り つぶ し ) 


上 直線, ボッ クス の 描画 , 塗り つぶ し 等 を 行なう . 
F990H:0O70IH 
INT A7H 


"DS 一 グラ フィ ッ ク L10 ワ ー ク エリ ア の セグ メン ト ベ ペース 


B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
[BX+0 て 1] 始点 の X 座 標 (XI) 
[BX 二 2 て 3] ~ 始 点 の Y 座 標 (YI) 
[BX 十 4 て 5] で 終点 の X 座 標 (X2) 
[BX+6 て 7] 一 終点 の Y 座 標 (Y2) 
[BX 十 8] パレット 番号 | 直線 及び ボッ クス の 描 前 に 使う 色 
を 指定 する . (省略 する と き は FFH) 
LB X 十 9 ト 上 描画 ヨー ド 
0 : 直線 の 描画 
| : ボッ クス の 描画 (B) 
2 : ボッ クス の 塗り つぶ し (BF) 
《 描画 コー ド が 0 また は 1 の 場合 ) 
[BX 二 0AH] ライ ンス タイ ル ・ ス イッ チ 
0 : ライ ンス タイ ル 指 定 な し 
| : ラ イン スタイル 指定 あり 
[BX 二 0BHC て 0CH] ライ ンス タイ ル 
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《 描画 コー ド が 2 (BF) の 場合 ) 
[BlX 十 0AH] パレット, タイ ルス イッ チ 
0 : パ レッ ト 指 定 な し , タイ ル 指 定 な し 
| : パレ ッ ト 指 定 あ り (PC 一 9 8 0 | で は 指定 で き 
な い ) 
2 : タイ ル 指 定 あり 
な い ) 
以下 の パラ メー タ は , PC--98 0 | で は 指定 で き な い . 


(PC-98 0 | で は 指定 で き 


[BX 十 0BH] パレ ッ ト 番 号 2 塗り つぶ し に 使う 色 を 指定 する . 


(省略 する と き は FFH) 
[BX 寺 0DH] タイ ルス トリ ング の 文字 数 
[BX 十 0EH て 0FH] 一 タイ ルス トリ ング の オフ セッ 


ト ア ドレ ス 
[BX 士 10H ン 11H] タイ ルス トリ ング の セグ メン ト ア ドレ ス 


ド 
ド 


DS : BX 二 0 二 2 





《 描 画 コ ー ド が 0 また は 1 の 場合 


DS : BX 土 0AH 0BH + 0DH 


グイ ケス イル 
メイ ネタ イル ・ ス イッ チ 
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描画 コー ド が 2 の 場合 ) 
DS : BX+0AH+0BH +0CH +O0DH +OEH  +10OH 








タイ ルス トリ ング の 
セグ メン ト 
オフ セッ ト 

タイ ルス トリ ング の 文字 数 

2 パレット タイ ル ・ ス イッ チ 


AH で 0 (正常 終了 ) 
AH5  (BF 及 び タ イル 指定 が ある 場合 で , タイ ルス トリ ング 
の 文字 数 が , カラ ー で 3 未満 , 白黒 で 0 の と き ) 
DS, SS, SP を 除く すべ て 
BASIC の LINE ス テー トメ ント に 対応 し て いま す .。 PC 一 9 8 0 1E ノ 
F/M で は , 機能 が 強化 され , タイ ルス トレ ング に よる ボッ クス の 塗り つぶ し , 
外 杏 と 異な る 色 に よる 塗り つぶ し が 可能 と な っ て いま す . これ ら の 機能 は PC 一 
9 8 0 1 で は 使え ませ ん か ら 注 意 し て 下さ い . 
X 座 標 , Y 座 標 は ー32768~ て 32 7 6 7 の 任意 の 点 を 指定 で きま す が , 実 
際 の 描画 は ビュ ー ポ ー ト 内 の み に 行 な われ ます . 


ッ パ レッ ト 番 号 2 


処 理 
《 描画 フー ド が 0 の 場合 ) 
1) 直線 描画 サブ プルー チ ン を コー ル す る . (CALL 20 1 6H) 
《 描画 コー ド が 1 の 場合 ) 
(2) 直線 描画 サブ ルー チン を 4 回 コー ル し て , ボッ クス を 描く . 
(CAL し も 2 0 1 # 且 ) 
《 描画 コー ド が 2 の 場合 ) 
〈 く タイ ルス トリ ング 指定 が な い 場 合 > 
(3③ 建 形 塗り つ な し ルー チン を コー ル し (CALL 3 4 9 E 廿 ), (2) を 実行 す 
る . 
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く タ イル スト リン グ 指 定 が ある 場合 > 
(4) タ イル スト リン グ に よる 和 形 塗り つぶ し ルー チン を コー ル し (CALL 
0 9 是 ), (2) を 実行 する 。 


スク リー ン 座 標 (100、50) か ら (500, 150) に 直線 を 引く . 


[BASIC ス テー トメ ント ] 


し 人 上 (し 】 は 。 


[機械 語 に よる プロ グラ ム ] 
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MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
INT 


SM を 4( 多 全 0 し 5.6) 
AX, 0060H 
DS AX 
BX, 150AH 
WORD [BX], 6 4H :X1 デ テ T「00 
WORD [BX+2], 32H :Yl=50 
WORD [BX 二 4], IF4H:X2=500 
WORD [BX 十 6], 96H :Y2=I50 
BYTE [BX 十 8] OFFH: 色 = 省略 
BYTE [は 因 基き B : 直線 
BYTE [BX 二 0AH], : ライ ンス タイ ル な し 
0A7H 


2 6 





| 回 昌夫 || 鞭 
二 守 
次 中 
IIE ヨ E3 


JHU 


中 


GCIRCLE (円 , 円 弧 の 描画 ) 


円 , 椿 円 , 円 弧 , 扇形 の 描画 , 塗り つぶ し 等 を 行なう . 
F990H:0O883H 

INT A8H 

BS グ ラフ ィ ッ ク L し 10 ワー クエ リア の セグ メン トペ ベ ペース 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
[BX+0C て 1] 中心 点 の X 座 標 (CX) 
[BX+2 て 3] 中心 点 の Y 座 標 (CY) 

[BX 二 4 て 5] <X 軸 方 向 の 半径 (RX) 

[BX 二 6 て 7] で Y 軸 方 向 の 半径 (RY) 

[BX 二 8] 一 パレ ッ ト 番 号 | < 線 の 色 > (省略 する と き は FFH) 
[BX 十 9] 描画 コー ド ( 各 ビ ッ ト が 次 の 意味 を 持つ ) 


ビッ ト 0 : 開始 点 指定 0 つ な し , | 一 あり 
ビ ピット | : 開始 点 半径 描画 0 つ な し , | つ あ り 
ビッ ト 2 : 終了 点 指定 0 つっ な し , | つ あ り 


ビッ ト 3 : 終了 点 半径 描画 0 一 な し , | 一 あり 
ビッ ト 4 : 開始 点 ・ 終 了 点 一 致 の 描画 
0 一 円 , | ユー 一 致 点 の み 
ピッ ト 5 : 塗り つぶ し 指定 0 一 な し , | 一 あり 
(PC 一 9 8 0 1 で は 指定 で き な い ) 
ビッ ト 6 : タイ ル 指 定 0 つ な し , | つ あ り 
(PC 一 9 8 0 | で は 指定 で き な い ) 
[BX 十 0AH て 0BH] 開始 点 の X 座 標 (SX) 
[BX+0CH て 0DH] 開始 点 の Y 座 標 (SY) 
[BX 十 0EH て 0FH] 終了 点 の X 座 標 (EX) 
[BX 二 10HC11H] て 終了 点 の Y 座 標 (EY) 
《 塗り つぶ し 指定 あり , タイ ル 指 定 な し の と き 
[BX 二 12H] パレ ッ ト 番 号 2 < 領域 色 > (省略 は FFH) 
《 塗り つぶ し 指定 あり , タイ ル 指 定 あ り の と き )》 
[BX 二 12H] タイ ルス トリ ング の 文字 数 
[BX 二 13H ン 1 4H] 一 タイ ルス トリ ング の オフ セッ 


ポス 
[BX 二 15HC16H] 一 タイ ルス トリ ング の セグ メン ト ア トレ ス 
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DS:BX 二 0 土 2 十 4 十 6 ャ 8 汗 .9 





中 心 (X, Y) 叉 半径 Y 半 径 


DS:BX 二 0 +0CH  +OEH  +1OH 
ICEHIE2 
開始 点 (X, Y) 終了 点 (X, Y) 
《 準 りつ ぶし 指定 あり , タイ ル 指 定 な し の と き )》 


DS : BX 十 12H 


関 パレ ッ ト 番 号 2 


《 塗 りつ ぶし 指定 あり , タイ ル 指 定 あ り の と き )》 


DS : BX 二 12H 士 13H 填 15H 


タイ ルス トリ ング の 
や モグ メシ 
オフ セッ ト 
タイ ルス トリ ング の 文字 数 


出力 条件 | AH< 一 0 (正常 終了 ) 


AH で 5 (塗り つぶ し 及び タイ ル 指 定 が ある 場合 で .。 タイ ルス ト 
リン グ の 文字 数 が , カラ ー で 3 未満 , 白黒 で 0 の と き ) 
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AH<6 (座標 計算 の 結果 , 座標 が 整数 型 2 バイト で 表せ な い 値 
と な っ た と まき ) 
D S$, SS, SP を 除く すべ て 
解説 
BASIC の CIRCLE ス テー トメ ント に 対応 し て いま す が , 引数 の 意味 が 
少し 異な り ま す . 椿 円 の 場合 , BAS TIC で は 比率 で 表す の に 対し , L IO で は 
直接 , X 半 径 。 Y 半 径 で 表し ます . また , 円 紅 , 扇形 の 場合 , 開始 点 , 終了 点 を 
B A S 1 C で は 角度 で 表わす の に 対し , L 1 O で は 円 周 上 の 座標 で 表わし ます . 
PC98 0 1E ン F/M で は , 機能 が 強化 され , 塗り つぶ し も 可能 と な っ て い 
ます 
開始 点 , 終了 点 は 原則 と し て 円 周 上 の 点 で ある こと が 必要 で す が , 万 ーー, 円 周 
上 以外 の 点 を 指定 し た 場合 の 扱い は 次 の よう に な り ま す . 図 で 開始 点 ま た は 終了 
点 が (1) の 範囲 に ある と き は , Y 座 標 が 修正 され て 円 周 上 の 点 が 仮定 され ます . (2) 
の 範囲 に ある と き は , 逆 に 叉 座標 が 修正 され て 円 周 上 の 点 が 仮定 され ます . (3) の 
男 囲 に ある と き は 満足 な 描画 が 行なわ れ ま せん . 


円 周 上 の 点 に 修正 され る . 





中 心 X 


開始 点 が 円 周 上 に な いと き 
| 処理 | 了 の の 
本 ルー チン に よる 円 の 描画 に は G で DC の 機能 は 使 4 点 は 
われ て お ら ず , プロ グラ ム 中 で 各 点 の 座標 を 計算 し . 4 
直接 GV R AM に 書き 込ん で いま す . れる 


(1) 円 周 上 の 各 点 の 座標 を 計算 する . 
(2) 対称 な 4 点 を 同時 に 描画 する . 
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(3) 各 点 の 描画 は 点 を 打つ ルー チン (1F5DH) を コー ル す る . 
(4) 塗り つぶ し 指定 が ある 場合 は 2 6 0 9H を コー ル し て X 軸 に 平行 な 線 を 引く . 
(5) 開始 点 , 終了 点線 分 の 指定 が ある 場合 は , 円 弧 の 描画 後 , 線 を 引く ルー チン 
(2 0 16 理 ) を コー ル す る . 

注 意 

本 ルー チン に は , INT C5H が 埋め 込ま れ て いま す の で , 対応 する 処理 ル 
ー チ ン が 準備 され て いる こと が 必要 で す . (3. 0 参照) Ne8 一 BAS 1IC で は , 
これ を STOP キ ー の チェ ッ ク に 使っ て お り , 描画 中 に STOP キ ー の 押下 が あ 
る と BASTIC の コマ ンド の 待ち 状態 に 戻っ て し まい ます . 


中 心 (300, 2 0 0), 半径 5 0 の 円 を 描き ます . 
MOV AX, 0060H 
MO DS。 AX 
MOV BX, 150AH 
MOV WORD [BX], 12CH :CX=300 
MOV WORD [BX 二 2], 0C8H:CY=200 
MOV WORD [BX 十 4] 32H :RX=50 
MOV WORD [BX 二 6], 32H :RY=50 
MOV BYTE  [BX 二 8], OFFH : 色 = 省略 


MOV BYE 1BX+9] 6 : 円 の 描画 
INT 0OA8H 
PRET 
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3 。 | 0 GP 衝 INT】』( 指 定 色 に よる 浴 り あぶ し ) 


機 能 | 指定 され た 境界 色 で 囲ま れ た 領域 を , 指定 色 で 塗り つぶ す . 
F990H:I2D0H 
割 込 | INT A9H 
D S 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
[B X+0 て |] で 塗り つぶ し 開始 点 の X 座標 
[BX 二 2 て 3] 一 塗り つぶ し 開始 点 の Y 座標 
[ B X 二 4 ] 一 パ レッ ト 番 号 < 領域 色 > (省略 は FFH) 
[BX+ 5] パレ ッ ト 番 号 < 境界 色 > (省略 は FFH) 
[BX+6 て 7] 作業 領域 最終 す オフセット アド レス 
[BX+8 て 9] 一 作業 領域 先頭 オフ セッ ト ア ドレ ス 


の: H 負 十 0 、 キ 2 すま キキ ちゆ 。. 人 十 8 


「 人 針 .| 境 | ワー ク | ワー ク 
X Y 域 | 界 | 最終 ア | 先頭 ア 
色 | 色 | ドレ ス 


塗り つぶ し 開始 点 







出力 条件 | AH 二 0 (正常 終了 ) 


AH で 5 (塗り つぶ し 開始 点 が ビュ ー ポ ー ト の 外 に ある と き ) 
AH7 (作業 領域 不足 ) 
DS, SS, SP を 除く すべ て 
BASIC の 【〔1〕 PAINT に 対応 し て いま す . < 境界 色 > で 囲ま れ た 領域 を 
< 領域 色 > で 塗り つぶ し ます . < 領域 色 > が 省略 され た 場合 は , < 領域 色 > と 同じ 
と みな され ます . 
作業 領域 は 1 6 バイ ト 以 上 必要 で , デー タ セ グ メ ント 内 に と ら な く て は な り ま 
せん . その 先頭 お よび 最終 アド レス を , デー タ セ グ メ ント 内 の オフ セッ ト ア ドレ 
ス で 指定 し ます 。 N88 一 BAS 1 C で は , 作業 領域 と し て , ソー ステ デキ スト の フリ 
ー エ リア を 指定 し て いま す . 
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注意 

本 ルー チン に は , INT C5 是 が 埋め 込ま れ て いま す の で , 対応 する 処理 ル 
ー チ ン が 準備 され て いる こと が か が 必要 で す . (3. 0 参照 ) Ns8- BA S I C で は こ 
れ を STOP キ ー の チェ ッ ク に 使っ て お り , 描画 中 に STOP キ ー の 押下 が ある 
と BASIC の コマ ンド 待ち の 状態 に 戻っ て し まい ます . 


塗り つぶ し の 内 部 サブ ルー チン を コー ル し ます . (CALL 21F0HH) 


前 節 の サン プル で 描い た 円 を 緑色 で 塗り つぶ し ます . 作業 領域 は!。 BASIC 
と 同じ よう に テキ スト の 空き エリ ア を 使い ます . 空き エリ ア の 先頭 は 。 セグ メン 
ト 60H の [6A6H-6A7H] に , 空き エリ ア の 最終 は 。[6A8H-6A9 
H] に 格納 され て いま す . 

MOV AX, 0060H 
MOV DS, AX 
MOV BX, 150AH 


MOV WORD [BX], 12CH  :X=300 
MOV WORD [BX+2], 0C8H:iY=200 
MOV BYTE [BX+4], 4 : 領域 色 緑 
MOV BY ヤ EーFBX キ 5 圭 7 : 境界 色白 
MOV AX,[6A8H] : テキ スト フリ ー 
MOV WORD [BX+6], AX : エ リア 最終 
MOV AX [6A6H] : テキ スト フリ ー 
MOV WORD [BX+8], AX 。 : エ リア 先頭 
INT 0A9H 
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2 |] き | 権 要 直人 す 2 
(タイ ル パ タ ー ン に よる 塗り つぶ し ) 


指定 され た 境界 色 で 囲ま れ た 領域 を 。 タイ ル パ タ ー ン で 準 り つぶ 


絶対 番地 | F990H:I3AAH 


時 近 E 1 計 T AAH 
D S ご グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン トペ ベー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX+0 て |] 塗り つぶ し 開始 点 の X 座 標 
[BX 二 2 て 3] 塗り つぶ し 開始 点 の Y 座標 
[BX 二 5H] タイ ルス トリ ング の 文字 数 
[BX+6H ン 7H] タイ ルス トリ ング の オフ セッ ト ア ドレ ス 
[BX 二 8HC て 9H] 一 タイ ルス トリ ング の セグ メン ト ア ドレ ス 
[BX 二 0AH] パレ ッ ト 番 号 < 境界 色 > (省略 は FFH) 
[BX+10H て | |H] 作業 領域 最終 オフ セッ ト ア ドレ ス 
[BX 二 12H て 1 3H] 一 作業 領域 先頭 オフ セッ ト ア ドレ ス 


DS : BX+0 下 2 本 も 5 : 6 填 8 十 ム 日 





境界 色 
タイ ルス トリ ング の 
セグ メン ト 
オフ セッ ト 
タイ ルス トリ ング の 娘 字 数 


塗り つぶ し 開始 点 







DS : BX 十 10 昌 H 填 12H 


ワー ク 先 頭 オ フ セ ッ ト ア ドレ ス 
ワー ク 最 終 オ フ セ ッ ト ア ドレ ス 
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出力 条件 | AH 一 0 (正常 終了 ) 


AH<5 (塗り つぶ し 開始 点 が ビュ ー ポ ー ト の 外 に ある と き , ま 
た は , タイ ルス トリ ング の 文字 数 が , カ ター で 3 未満 . 
白黒 で 0 の と き ) 
AH<7 (作業 領域 不足 ) 
DS, SS, SP を 除く すべ て 

解説 

BASIC の (2 PAINT に 対応 し て いま す . < 境界 色 〉 を 省略 する と フォ 
アグ ラウ ンド カラ ー が 使わ れん ます. 

作業 領域 は 1 6 バイ ト 以 上 必要 で , デー タ セ グ メ ント 内 に と ら な く て は な り ま 
せん . その 先頭 お よび 最終 アド レス を , デー タ セ グ メ ント 内 の オフ セッ ト ア ドレ 
ス で 指定 し ます . N88 一 BAS IC で は , 作業 領域 と し て , ソー ステ キス ト の フリ 
ー エ リア を 指定 し て いま す . 
タイ トル スト リン グ の 構成 | 

タイ トル スト リン グ に よる 塗り つぶ し は , 横 8 ドッ ト , 縦 n ドッ ト の 長方形 の 
パタ ー ン を 繰り 返し 使っ て 指定 し た 領域 を 埋め ます . タイ ルス トリ ング と は 。 そ 
の 基本 と な る 8 Xn の パタ ー ン の こと を いい ます . 

横 方 向 の 長 さ は 1 バイ ト の ビッ ト 数 に 合わ せ て 8 ドッ ト と 決め られ て いま す が . 
縦 方 向 の 長 さ は , 1 以上 な ら 自 由 に 設定 で きま す . 白黒 で は , 1 バイ ト で 横 1 列 
分 を 表 わ せ ます か ら , 縦 が ロ ドッ ト の 場合 タイ ルス トリ ング の 長き は n バ イト 必 
朗 で す . カラ ー の 場合 は , 横 1 列 分 を 3 バイ ト で 表わし (1 番目 が 青 ,。 2 垂 目 が 
赤 。 3 番目 が 緑 の プ レー ン に 対応 する ) ます か ら , 3 n バ イト 必要 に な り ま す . 

人 委 バ イト を 構成 する 各 ビ ピット は , 画面 上 の 1 ドッ ト に 対応 し 。 ビッ ト が 1 の と 
ころ は , ON, 0 の と ころ は OFF と な り ま す . 


左 右 
っ ] 青 本 
| (第 ライン 
6 
ャ し L_ 3nー2 
8 ビット ey す ] 季 m ラ イン 
白黒 の 場合 カラ ー の 場合 
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注 意 

本 ルー チン に は , INT C5 是 が 埋め 込ま れ て いま す の で , 対応 する 処理 ル 
ー チ ン が 準備 され て いる こと が 必要 で す . (3. 0 参照) N88 一 BASTIC で は , 
これ を STOP キ ー の チェ ッ ク に 使っ て お り , 描画 中 に STOP キ ー の 押下 が あ 
る と BAS IC の コマ ンド 待ち の 状態 に 戻っ て し まい ます . 


塗り つぶ し の 内 部 サブ ルー チン を コー ル し ます . (CALL 21F0H) 


3. 9 の サン プル で 描い た 円 を 右 の よう な パタ 
ー ン で 塗り つぶ し ます . 作業 領域 は BASIC 
と 同じ よう に テキ スト の 空き エリ ア を 使い ます . ー ー 


空き エリ ア の 先頭 は セグ メン ト 60H の [6A 


青 01010101=55H 
6H 一 6 A 7 H] に , 空き エリ ア の 最終 は , [6A 赤 00110011=33H 
縁 00001111=OFH 


8Hー-6A9H] に 格納 され て いま す . タイ ルス 
トリ ング は コー ド セ グ メン ト の 4 0 耳 か ら 格納 し 
て お きま す . 

MOV AX, 0060H 

MOV DS, AX 

MOV B せ X, 150AH 


呈 DV 春 人 代り 上 8 人 12CNH :X=300 
MOV WORD [BX 二 2] 0C8H:Y=2Z00 
MOV BYTE [8X 二 5k 3 : 文字 数 3 


MOV WORD [BX+61 ト すず せ け 付 ダイ ルオ フ ゼ メト 
MOV AX, CS 


MOV WORD [BX 二 8], AX : タ イル セグ メン ト 
MOV BYTE [BX+0AH], 7 境界 色 7 
MY AX LOASHI ププ キー スト の 
MOV WORD [BX 二 10H], AX : エ リア 最終 
MOV AX, [6A6H] リー 
MOV WORD [BX 二 12H], AX : エリ ア 先 頭 

「 朋 1 「 科 あ 

ORG 40H 


DB 55H, 33H, OFH 127 


3/ 2 GGET( グ ラフ ィ ッ ク の 読み 込み ) 


機 能 | 画面 上 の グラ フィ ッ ク パ タン を メモ リ に 読み 込み ます . 

絶対 番地 | F990H:I466H 

割 込 | INT ABH 

DS 一 グラ フィ ッ ク L 10 ワ ー ク エリ ア の セグ メン トペ ベー ス 
B X て 引数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 

[BX 十 0 て |] て 読み 込む 領域 の 左上 の X 座標 (X | ) 
LBX 二 2 て 3] < 読み 込む 領域 の 左上 の Y 座 標 (Y |) 
[BX 二 4 て 5] 読み 込む 領域 の 右 下 の X 座標 (X 2 ) 
[BX 二 6 て 7] 読み 込む 領域 の 右 下 の Y 座 標 (Y 2) 
[BX 二 8 て 9] 格納 領域 の オフ セッ ト ア ドレ ス 
[BX 二 0AH て 0BH] で 格納 領域 の セグ メン ト ア ドレ ス 
[BX+0CH て 0DH] 格納 領域 の 長 さ (バイ ト ) 


DS : BX+0 2 填 4 圭 6 土 8 +0AH  +0CH 







読み 込む 領域 の 座標 
格納 領域 の オフ セッ ト 

格納 領域 の セグ メン ト 

格納 領域 の 長き 


AH で 0 (正常 終了 ) 
AH<5 (読み 込む 領域 が ビュ ー ポ ー ト を は み 出 し て いる 場合 , 
また は , 格納 領域 の 長 さ が 足り な い 場 合 . ) 

D S, S S, SP を 除く すべ て 

BASTIC の GET@ ス テー トメ ント に 対応 し て いま す . 格納 領域 の 構成 を 以 
下 に 示し ます . 
[格納 領域 | 

傘 納 領域 の 先頭 に は 。 まず , 読み 込み 領域 の 大 き さ が X, 方向 各 2 バイ ト で 
裕 納 され ます . そし て , 格納 領域 の 4 バイ ト 目 か ら 実 際 の デー タ が 格納 され ます . 
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読み 込み 領域 の 上 の 方 か ら 左 端 が バイ ト の 先頭 に な る よう に シフ ト さ せな が ら 1 
列 ず つ 格 納 さ れ ま す . 横 1 列 の ドッ ト 数 が 8 の 倍数 で な いと き は 各 列 の 最後 の バ 
イト の 余っ た ビッ ト は 不定 と な り ま す . 
《 白黒 の 場合 ) 
[0-1] XX 方 向 ド ッ ト 数 (=X2 一 XX1 十 1) 
[2-3] YY 友 向 ド ッ よ 数 (=Y 2 一 Y1 二 1) 
以下 , 横 1 列 単位 で グラ フィ ッ ク バ パタ ン を 格納 
横 1 列 の バイ ト 数 三 (双方 向 ド ッ ト 数 7)/8 
Y 方 向 の ドッ ト 数 分 繰り 返す . 
必要 と する 格納 領域 の 長き さ は, 


4 十 横 1 列 の バイ ト 数 *Y 方 向 の ドッ ト 数 
と な る . 


X 方 向 ド ッ ト 数 。 Y 方 向 ド ッ ト 数 
0 


横 1 列 の バイ ト 数 NX 
た だ し NY は Y 方 向 ド ッ ト 数 


白黒 の 場合 


《 カ ラー の 場合 》 

[0-1] 叉 方 向 ド ッ ト 数 (XX2 一 X1 十 1) 

| 2 -.3] ママ 方向 ドッ ト 数 (=ーY マ 2 一 Y1 十 1) 

以下 , 横 1 列 単位 で 青 , 赤 , 緑 の 順 に グラ フィ ッ ク バ パタ ン を 格納 
横 1 列 の バイ ト 数 三 (X 方 向 ド ッ ト 数 二 7) プ 8*3 

Y 方 向 の ドッ ト 数 分 繰り 返す . 

必要 と する 格納 領域 の 長き は , 


4 十 横 1 列 の バイ ト 数 *Y 方 向 の ドッ ト 数 
と な る 。 
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X 方 向 ド ッ ト 数 Y 方 向 ド ッ ト 数 





横 1 列 の バイ ト 数 =NX 
カラ ー の 場合 


画面 モー ド は , 格納 領域 に スト ア さ れ ま せん . ユー ザー が 管理 を し て 下さ い . 
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3. 13 GPUT | (グラ フィ ッ ク の 書き 込み ) 
メモ リ に 格納 され て いる グラ フィ ッ ク パ タン を 画面 に 書き 込み ま 


[絶対 番地 | F990H:I1605H 
INT ACH 
D S 一 グラ フィ ッ ク L10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 _ 数 | [BX 填 0 て 1] < 書き 込む 領域 の 左上 の X 座標 
[BX 二 2 て 3] < 書き 込む 領域 の 左上 の Y 座標 
[BX+ 4 て 5] < 格納 領域 の オフ セッ ト ア ドレ ス 
[BX+6 て 7] 格納 領域 の セグ メン ト ア ドレ ス 
[BX+8 て 9] < 格納 領域 の 長 さ (バイ ト ) 
[BX 十 0AH] 描画 モー ド 


0 BSET 

4 欄 終 を ら ET 

を は 人 9 

3 3 全 、MD 

4 : XOR 
LBX 十 0BH| 一 カラ ー ス イッ チ 

0 : 指定 な し 


| : 白 と 黒 に 色 を つけ る 
《 カ ラー スイ ッ チ が | の と き 以 下 の パ ラメ ー タ が 有効 と な る )》 
[BX+0CH] ~ 白 の 部 分 に つけ る 色 (パレ ッ ト 番 号 ) 
[BX 二 0DH] < 黒 の 部 分 に つけ る 色 (パレ ッ ト 番 号 ) 


DS : BX 十 0 hk2 填 4 填 6 十 8 填 0A 十 0B 十 0C 圭 0DH 







書き 込む 信 域 の 座標 に 対応 する 色 
格納 領域 の オフ セッ ト 
格納 領域 の セグ メン ト み カラ ー ス イッ チ 
客 納 領域 の 長 さ 描画 モー ド 
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AH<0 (正常 終了 ) 
AH5 (書き 込む グラ フィ ッ ク パ ター ン が ピュー ポ ボー ト 内 に 収 
ま ら な いと き ) 
D S, SS, SP を 除く すべ て 

BASTC じ の PUT@ ス テー トメ ント (配列 ) に 対応 し て いま す . GGETT で 
アモ リ に 格納 し た グラ フィ ッ ク バ タン を 画面 に 戻す の に 使い ます . 

摘 画 モー ド を 0 と する と , 格納 デー タ は その まま 書き 込ま れ , 1 に する と 反転 
し て 書き 込ま れ ま す . 2 一 4 は , 画面 上 の デー タ と 格納 デー タ と の 演算 結果 が 書 
さき 込ま れ て いな い の で , 格納 時 の 画面 モー ド に か か わら ず 現 在 の モー ド で 再現 き 
れ ま す . で すか ら , カラ ー で 格納 し た デー タ を 白黒 で 再現 , また は , その 逆 を 行 な 
2 と 正常 に 作動 し ませ ん . 自 黒 の データ を カラ ー で 再現 する 場合 に 限っ て は 。 カ 
フー スイ ッ チ を 1 と する こと に より 対処 で きま す . 

タカ ラー スイ ッ チ は 白 時 モ ー ド で 格納 し た デー タ を カラ ー モ ー ド で 再現 する 場合 
に + に し ます . その と き , 元 の デー タ で 格納 し た デー タ の 白 の 部 分 に つけ る 色 を 
LBX 十 0 C 是 ] で , 黒 の 部 分 に つけ る 色 を [BX 二 0 DH] で 指定 し ます . 
注 意 “ 

本 ルー チン に は , I NT し 5 是 が 埋め 込ま れ て いま す の で , 対応 する 処理 ル 
ー チ ン が 準備 され て いる こと か が 必要 で す . (3. 0 参照 ) Nss 一 BASIC で 
は , これ を STOP キ ー の チェ ッ ク に 使っ て お り , 描画 中 に S 下 OP キ ー の 押下 
が ある と BAS TIC の コマ ンド 待ち の 状態 に 戻っ て し まい ます . 


PU 芽 の 内 部 サ プ ブルー チン を コー ル し ます . (CALL 266 9 是 ) 


画面 上 の (0, 0) 一 (4 9, 2 9) に ある グラ フィ ッ ク バ パタ ン を GGE 芽 で 読 
み 込 み 。 GPUT 1 で 反転 し て , し ま - 人 。 1 0 0) か ら に 書き 込み ます . 現在 カ 
フー モー ド で ある と する と , 必要 な 格納 領域 の 長き は 。 

を オキ (もち も け キ 了 7) ます = ャ 14 
バイ ト と な り ま す . 
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(0.0) 


(100.100) 


(149 .129) 





MOV AX, 0060H 
MOV DS, AX 
時 り 0YV 生 共 、。 5 ち 60AA 相 


MOV WORD [BX], 0 : Xl 
MOV WORD [BX+2], 0 3 
MOV WORD [BX 士 4], 31H :XZ=49 
MOV WORD [BX 二 6], IDH :YZ=Z9 
MOV WORD [BX 二 8] 1I100H : 格納 領域 
MO V AX、 6 と 5 

MOV [BX 十 0AH], AX > グン キト 
MOV WORD [BX 二 0CH], 0FOH:=214 
MOV 0OABH * ね GET 
MOV WORD [BX], 64H :X= テ 100 
MOV WORD [BX 十 2], 64H :Y=|I00 
MOV WORD [BX+4], 100H : 格納 領域 
MOV AX, CS 

MOV [BX 二 6], AX : 竹 ダグ メン ト 
MOV WORD [BX 二 8] OF0OH :) 先 Z14 
MOV BYTE ELBX 寺 0AH], ! 提 拓 きも まま 
MOV BYTE [BX+0B1H1 0 

INT 0ACH 

| 衝 、18 - 衝 () 
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3. 14 GPUT2 (画面 に 漢字 を 表示 ) 


機能 | 画面 に 漢字 を 表示 し ます . 
| 絶 対 番 地 | F990H:IB25H 
割 込 | INT ADH 
入力 条件 | DS 一 グラ フィ ッ ク L.L0 ワ ー ク エリ ア の セグ メン トペ ベー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX 十 0 て |] < 表示 領域 の 左上 の X 座標 
[BX+2< て 3] 表示 領域 の 左上 の Y 座標 
[BX 二 4 て 5] 一 2 バイト 文 字 コ ー ド 
[BX 二 6] 描画 モー ド 


UPSE[ 
2 作 た に あま も 
Z.:.0.R 
3・AND 

4 :XOR 


[BX+ 7 ] 一 カラ ー ス イッ チ 

0 : 色 の 指定 を 省略 

| : 以下 の パラ メー タ で 色 を 指定 
[B X 二 8] < 字 の 部 分 に つけ る 色 (パレット 番号 ) 
[BX+ 9] 背景 の 部 分 に つけ る 色 (パレ ッ ト 番 号 ) 


DS : BX 十 0 る 十 4 が 人 eg , 






に 対応 する 色 
チー スズ スイッチ 
] 了 IS コー ド 描画 モー ド 


書き 込む 信 域 の 座標 


AH<0 (正常 終了 ) 
AH<5 (書き 込む グラ フィ ッ ク パ タン が ビュ ー ポ ー ト 内 に 収 ま 
ら な いと き ) 
DS, SS, SP を 除く すべ て 
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BASIC の PUT@ ス テー トメ ント (漢字 ) に 対応 し て いま す . 

本 ルー チン は , 前 節 の 格納 領域 の か わり に , ROM 上 に ある フォ ント パタ ー ン 
を 用 いる も の で す . フォ ント パタ ー ン は 白黒 モー ド で 格納 され た も の に 相当 し , 
カラ ー ス イッ チ の 意味 は GPUT 1 と 少し 異な り ま す , 0 な ら ば ,[BX 十 8, 9] 
の 色 指 定 の 省略 を 意味 し. それ ぞ れ , フォ アグ ラウ ンド カラ ー, バッ ク グ ラウ ン 
ドカ ラー が 使わ れ ま す . 1 な ら ば [BX+ 8] で 字 の 部 分 に つけ る 色 を , [BX+ 
9 | で 背景 の 部 分 に つけ る 色 を 指定 し ます . 

押 モー ド 0 と する と 。 フォ ント パタ ー ン は その まま 書き 込ま れ , 1 に する と 
反転 し て 書き 込ま れ ま す . 2 一 4 は , 画面 上 の デー タフ ォ ン トペ ター ン と の 演算 
結果 が 書き 込ま れ ま す . 

文字 の コー ド は J 1 S 漢 字 コ ー ド だ け で な く , 0 0 X 双 の 半角 コー ド ,。 0 1X 
XX の 1 / 4 角 コ ー ド も 使う こと が で きま す . (次 ペー ジ の コー ド 表 参照 ) 

注 意 

本 ルー チン に は , INT C5 耳 が 埋め 込ま れ て いま す の で , 対応 する 処理 ル 
ー チ ン が 準備 され て いる こと が 必要 で す . (3. 0 参照 ) Nss 一 BASIC では, 
これ を STOP キ ー の チェ ッ ク に 使っ て お り , 描画 中 に STOP キ ー の 押下 が あ 
る と BASIC の コマ ンド 待ち の 状態 に 戻っ て し まい ます . 

処 。 理 

文字 の フォ ント パタ ー ン を 読み 出し た 後 。 GPUT 1 と 同様 に PU 芽 の 内 部 サ 
プル ー チ ンコ ユール し まあ まず す 。 (C じ ALL 2669H) 

フォ ント パタ ー ン の 読み 出し は , 基本 的 に は BIOS の フォ ント パタ ー ン の 読 
み 出 し ルー チン (INT 18H, AH=14H) を 使い ます が , BIOS で 扱 
う コ ー ド と この ルー チン の 受け る コー ド が 一 部 異な る た め 変 更 が 必要 と り ま す . 
また , ひら が な は 漢字 R OM に 含ま れ て いな いた め , 別に 扱い ます . 

1) J IS 漢字 コー ド の 場合 

文字 コー ド の 変換 な し 
(2) 半角 文字 (ひら が な を 除く ) の 場合 

グラ フィ ッ ク で は , 半角 文字 の コー ド は 0 た で すま 王 よ びり S で は チ 
ルフ ァ ベ ッ ト が 2 8※※ 談 カタ カナ が 2 9X 双 の コー ド で 表現 きれ て いま す . 

変換 式 は 次 の よう に な り ま す . 

〈 く アル ファ ベッ ト の 場合 (2 0HSCODEs 7FH)> 
B10S し じ CODE と で て と CO0DE 十 2800HH 
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く 〈 カ タカ ナ の 場合 (0A0HESECODEs0DFH)> 
BIOSCODEーCODE+ 2880H 

⑬) 1 / 4 角 文 字 の 場合 

グラ フラ リック で は 1 双 区 で す が : BTOS で は : 0 り 人 入 と な る の で て 。 
頭 の 1 バイ ト を 0 0 に 置き 換え ます . 
(4) ひら が な の 場合 

着 字 ROM 中 に は フォ ント パタ ー ン が な く , L IO の ROM に 含ま れ て いま 
す . 具体 的 に は , 本 ルー チン の 上 直前, つまり, セグ メン ト F9 9 0 旦 の 1 7 0 
o り HH から 1B2 4 且 に あり ます . ひら が な の 場合 に は BIOS を コー ル せ ず , 
直接 この 領域 か ら フ ォ ン トバ パタ ー ン を 転送 し ます . 次 ペー ジ の 半角 文字 の 表 で 
和弥 線 の 部 分 が ここ で いう ひら が な に 相当 し ます . 


画面 の (1 0 0, 100) に “ 漢 " と いう 字 を 赤色 で 出力 し ます . 


MOV AX, 0060H 
MOV DS, AX 
MOUV 馬 氏 たよ す ち もせ 導 着 


MOV WORD [BX], 6 4H :X=1E0 
MOV WORD [BX+2], 64H YamFF0 0 
MOV WORD [BX 二 4], 3 4 4 1H : 漢 の コー ド 
MOV BYTE [BX+6], 0 :PSET 
MOV BYTE [BX 二 7], | : 色 指 定 あり 
MOV BYTE [BX 二 8], 2 : 字 の 部 分 一 赤 
MOV BYTE [BX+9], 0 : 背景 一 黒 
INT 0ADH 
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グラ フイ ッ ク 画 面 に 表示 で きる 半角 文字 一 覧 表 


6 
に 4 
6 
F 
V 
f 
vV 


県 衝 は D け を 『# 


に 3 
| 
Ss 


NQ  +ー 
sy 4 人 


〈 
し 坦 還 放 - 
ーー 
ーー に ea | 穴 マー e 





WM 示 
ka 


ヲ 
し 交 科 


NNY て 
Nu r 士 ゝ 還 還 二 


に 
〇 
8 。 
ー ュ 
、 3 入 - 二 - 
年 、 す 
2 
中 
中 いざ 





0 まい @| 夫 まじ 6 7 ト BC9'A 8iG D GiE 


園 国 の 部 分 は 漢字 ROOM に な い 。 メ イン ROM に 
フォ ント パタ ー ン が 格納 され て いる 。 
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0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
01AO 
01B0 
01CO 
01DO0 
01EO 
01FO 
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グラ フイ ッ ク 画 面 に 表示 で きる 1/4 角 文字 一 覧 表 


1 


ーー 
DD 世 填 * < て 


きき 81 も 5918。 き し AA 9IC、DE.F 


き に 1 さ 
SX ド Xi ド ET 


D ッ Da」 D』 


| 2 芝 so 
(の ぞ で ) 


Lo 1 
し で の 


CO 可 廿 二 Qt 


AK 


ーー < っ 


ご 
マズ 


]! 


SN 


BLL IBS 


Ep CN 
寺 は 
8 
H 
入 
h 


ヽ ! 
居 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| ォ 
| 
| 
1 
| 
| 
秒 
| 
| 


8 


HT LF HMCL 


トド M 
) 


9 
1| 


SB FC 


区 


ノ ュ 


ー* 


寺 「。 


参 3 、 


を dr キ 
3 0 


て C う 


CR S 


2 紹 て 


っ 1 


へ 一 


* こ う 


さ 。 


機 


引 


能 


数 


5 


| 


| 


[ 


GROLL 
(グラ フィ ッ ク 画 面 の スク ロー ル ) 


グラ フィ ッ ク 画 面 を スク ロー ル さ せる . 


F990H:IC65H 

INT AEH 

DS ダラ アタ ィ ッ ク じ 0 ラー クモ リア の セグ ダメ ント ペー ス 

B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 


《PC98 0 1 の 場合 》 


[BX 十 0 一 1] 上 方 向 ド ッ ト 数 


DS : BX 二 0 


| 上 ryhe 


PC9 8 0 1E ノ F の 場合 ) 


BX 十 0 一 1] 上 下方 向 ド ッ ト 数 
EK 上 に 久 ウ ロー ル 
負 : 下 に スク ロー ル 
BX 十 2 一 3 < 左右 方 向 ド ッ ト 数 
邊 。 寺 スウ グ ゼ サール 
負 : 右 に スク ロー ル 
B え オス 4 よ ホ ト ャ ー グ 沙 ま 沙 ラ グ 
0 : パ レッ ト 番 号 0 で クリ ア 
も : ノ サッ クツ ラウンド み ラー ゼリア 


DS : BX 十 0 の 土 4 






クリ アフ ラグ 
左 有 方 向 ド ッ ト 数 
下方 向 ド ッ ト 
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AH<0 (正常 終了 ) 
AH5 (2 0 0 本 モー ド に お いて , 上 下方 向 の ドッ ト 数 が 土 | 
9 9 を 超え て いる と き ) 

DS, SS, SP を 除く すべ て 

BASIC の ROLL ス テー トメ ント に 対応 し て いま す . PC9 8 0 1 で は , 
上 方 向 へ の スク ロー ル し か で きま せん で し た が , PC 9 8 0 1E/F/M で は , 
大 幅 に 機能 が 拡張 され て , 上 下方 向 お よび 左右 方 向 に も スク ロー ル で きる よう に 
な っ て いま す . た だ し , 左右 方 向 の スク ロー ル は バイ ト 単 位 で 行わ れる の で , ド 
ッ ト 単 位 で 指定 し て も 実際 に スク ロー ル さ れる の は , 8 の 倍数 の ドッ ト 数 と な り 
まま yi まお 、 


実際 の スク ロー ルド ッ ト 数 = (指定 し た ドッ ト 数 \ ぎ 8) *8 


と な り ま す . ( ぎ は 割り 算 で 商 の 少数 点 以下 を 切り 捨て る こと を 意味 する ) 

クリ アフ ラグ は , スク ロー ル し た 後 の 残 り の 領域 を 埋め る 色 を 指定 する も の で , 
0 な ら パ レッ ト 番 号 0 で 埋め られ , 1 な ら バ パ バック グラ ウン ドカ ラー で 埋め られ ま 
9 放 ( 

上 下方 向 の スク ロー ルド ッ ト 数 は 2 0 0 本 モー ド の と き に 限っ て 土 1 9 9 を 超 
える と 異常 終了 し ます が , 4 0 0 本 モー ド で は 土 3 9 9 を 超え て も 作動 し ます . 
し か し , 画面 が お も し ろく な り ま す の で , 必ず 土 3 9 9 以下 を 指定 し て 下さ い . 


上 方 向 に 1 0 0 ドッ トス クロ ー ル し ます . 


MOV AX, 0060H 

MOV DS,。 AX 

MO も -V: 欠い れい せ 、F 

MOV WORD [BX]」], 64H * 1 せり 
MOV WORD [BX+2], 0 

MOV BYTE「 [きす X キ さよ 9 

人 科 | AE を 利 
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本 、 † 6 旭 ま 導 1 便 
(指定 座標 の ドッ ト の 色 を 得る ) 


指定 され た 座標 に 表示 され て いる ドッ ト の 色 を 与え ます . 
絶対 番地 | F990H:IEIOH 
割 込 | INT AFH 
D S ご グラフィック L 10 ワ ー ク エリ ア の セグ メン ト ベ ー ス 
B X< 引 数 リス ト の 先頭 オフ セッ ト ア ドレ ス ( デ ー タ セグ メン ト 内 ) 
引 数 | [BX+0 て |] 一 X 座 標 
[B X+ 2 て 3] ーY 座 標 


DS : B 区 十 0 十 2 


キャ 
パレ ッ ト 番 号 を 求め る 座標 


AH で 0 (正常 終了 ) 
AL 出力 情報 
(白黒 の 場合 ) 
0 : 黒 
で 自 
FF : 指定 座標 が ビュ ー ポ ー ト の 外 で ある . 
《 カ ラー の 場合 》 
0 > 7 : パレ ッ ト 番 号 
FF : 指定 座標 が ビュ ー ポ ー ト の 外 で ある . 
DS, SS, SP を 除く すべ て 
BASIC の [2] の PO I NT 関数 に 対応 し て いま す . 指定 し た 座標 の パレ 
ッ ト 番 号 を 求め ます . 結果 は AL に 格納 され ます . 
処理 
BIOS グ ラフ ィ ッ クス クリ ー ン か ら の 読み 出し を コー ル し , 1 ドッ ト を 読み 
込み ます . (CALL 2EEAH) 
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ーー EC デーー っ ーー ーー ニャー に ゃ て りり S11 


Cot まき 


この ルー チン は , グラ フィ ッ ク 画 面 の 一 部 を プリ ンタ に 出力 する の に 使い ます . 
ただし, この ルー チン 自体 は プリ ンタ へ の 出力 は 行なわ ず , その 前 処理 を 担当 し 
ます . 画面 上 で は 1 バイ ト 中 の ビッ ト は 横 に 並ん で いる の に 対し て , プリ ンタ へ 
送 る グラ フィ ッ ク イ メー ジ は 縦 の 8 ドット を 1 単位 と し て いる た め , 横 か ら 縦 へ 
の 変換 が 必要 と な る わけ で す . この ルー チン で は その 変換 を 行っ て いる の で す . 
一 度 に 変換 で きる 量 は Y 方 向 ド ッ ト 数 が 2, 4, 8 ドット の いずれ か , 双方 向 ド 
ッ ト 数 が 8 の 倍数 で 2 5 5 以下 で す . Y 方 向 ド ッ ト 数 が 2, 


(画面 上 の 指定 領域 を メモ リ に 格納 ) 


画面 上 の 指定 領域 を 横 を 縦 に 変換 し な が ら , メモ リ に 格納 する . 
F990H:37CAH 
INT CEH 
A X 指 定 領域 の 左上 の X 座 標 (8 の 倍数 で ある こと ) 
B X 指 定 領域 の 左上 の Y 座標 
CL で 指定 領域 の X 方 向 ド ッ ト 数 (8 の 倍数 で ある こと ) 
CH で 指定 領域 の Y 方 向 ド ッ ト 数 

(2,。 4, 8, 8 2H, 8 4 H に 限る ) 
D | 格納 領域 の オフ セッ ト ア ドレ ス 
E S 格納 領域 の セグ メン ト ア ドレ ス 
AH<0 (正常 終了 ) 
DS, SS, SP を 除く すべ て 


H の b 7 を 1 に する と 1 ドッ ト お き と な り ま す . 
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4 ドッ ト の 場合 は C 





っ * ] Sa ーー 


①⑪- CC=2。 また は 8 2 RI の 場合 
「 (X. ゞ Y) 


画面 上 の @$⑥@OO_ O 「 
ドッ トバ タン |⑧⑧ 〇 〇 〇 「 
8 

0 

1 

「 


eo 


(1) CH=2 の 場合 (2) C 旨 =8 2H の 場合 
bz be bs b。 bs bs bi bo bz be bs b。 bs bs bi bo 


0 0 00 0 0dzdi 0 0 0 0 0 dz 0 
000000dds 00000 di 「 





② CH=4, まだ た は 8 4 是 の 場合 
本間 度 8 湖 


画面 上 の 
ド ツ ャ パタ ン 





0 や ape 
(1) CH=4 の 場合 2) CH=8 4 時 の 場合 


bz be bs b, b。 b bi b bz bs bs b, bs bz bi b 


0) 0 0 0 dd。d。 di 0 d, 0 d3 0 dz 0 
0 0 0 0 ddz dd。 0 ds 0 d7 0 de 0 ds 
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③ CH=8 の 場合 
(X。 YY) 


〇 
〇 
〇 
〇 
〇 
〇 
和 を 
〇 


(X メ 二 dx 一 1, Y 二 7) 


bz be bs b。 b bs bi b。 


ds dz d。 ds d4 ds dz di 





3。 18 上 L IO 内 部 サブ ルーチン 


この 節 で は , 3. 1 一 3. 1 7 で 述べ た L IT O ル ー チ ン の 中 で 使わ れ て いる サ 
ブルー チン を 紹介 し ます . ここ で 述べ る サブ ルー チン は L I O ル ー チ ン と 違っ て . 
I NT 命令 に よる ソフ トウ ェ ア 割 込 を 使っ て 呼び 出す こ と が で まま せん 、 と ご 谷 
連 べ る サブ ルー チン を ユー ザー プロ グラ ム か ら 使 えな いこ と は あり ませ ん が . い 
くら か 厄介 で す .、 ま た R OM の バー ジョ ン に よっ て エン トリ アド レス が 異な る こ 
こも 考え られ る の で , 互換 性 の ある プロ グラ ム を 作る と いう 観点 か ら も あま りお 
勧め で きま せん . この 節 の 主 な 目的 は , L 1 O 内 部 で の 処理 を 理解 し や ゃ すく する 
こと, お よび , 読者 が さら に 解読 を され る 場合 の 助け と し て 利用 で きる こと に あ 
り ます 。 
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※ ネ ネネ ネネ 描画 の 準備 ま ※ ネ * ネ * ネ (IEDCH) 


描画 関係 の 内 部 サブ ルー チン の コー ル に 先だって ワー クエ リア に 
描画 カラ ー や 描画 プレ ー ン の 情報 を セッ ト す る . 
絶対 番地 | F990H:IEDCH 


入力 条件 | CH~ 描 画 カ ラー・ パ レッ ト 番 号 (省略 する と き は , FFH) 


DS: 
DS: 
DS: 


DS : 


DS: 


DS: 


[1008H] 


[ 6 2 0H] 画面 モー ド 
[6 2 1H] アク ティ ブ ペ ー ジ 
[ 6 2 3 H] 一 フォ アグ ラウ ンド カラ ー 
[ 6 4 0H] 描画 カラ ー・ パ レッ ト 番 号 
(画面 モー ド が カラ ー の と きのみ ) 
[6 4 2H] 描画 モー ド 
2:CLEAR 
人 な を 
[1 0 0 8H] 描画 プレ ー ン 


D7 be bs . pa bibi:b 
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0:640X200 
1.・640X400 


か まあ に 公 2 
解 説 ! 


CH に 与え られ た 描画 カラ ー, お よび , 共通 ワー クエ リア の 画面 モー ド , アク 
ティ ブ ペ ー ジ の 情報 か ら 描画 モー ド , 描画 プレ ー ン を 求め 。 ワー クエ リア に 格納 
し ます . 画面 モー ド が カラ ー (0 また は 3 ) の 場合 は 描画 カラ ー も 格納 し ます . 
CH が FF 昌 H (省略 ) の と き は フォ アグ ラウ ンド カラ ー が 使わ れ ま す . 
| 
< 画面 モー ド が カラ ー (0 また は 3) の 場合 > 
(1) DS: [640 耳 ] に 描画 カラ ー (CH) を セッ ト す る . CH が FFH の 場 
合 は フォ アグ ラウ ンド カラ ー (DS 6 3 用) を 用 6 る. 

(2) DS: [642H] に 3。(SET) を セッ ト す る 。 

(3) DS: [1008HH| に 描画 プレ ー ン の コー ド を セッ ト す る . ビッ ト 4, 5 
は 1 1 ( 全 プ レー ン ) と な る 。 


< 画面 モー ド が 白黒 (1 また は 2 ) の 場合 > 「 

(4) C 革 が 0 か 0 以外 か に よっ て , 描画 モー ド (DS: [6 4 2H]) に 2 また は 
3 を セッ ト す る . C 耳 が 0 の と き 2 (CLEAR), 0 以外 の と き 3 (SE 
が 

(5) DS: [1008H| に 描画 プレ ー ン の コー ド を セッ ト す る . ビッ ト 4, 5 
は 。 アク ティ ブ 代 で が 細 上 天 宮 す 0、-0 1、 1 0 と な る 、 


ネネ ネネ ※ 点 を 打つ ま ネ ※ ネ ※※ ネ (|IF5DHH) 


機能 | X, Y 座 標 で 指定 され た ビュ ー ポ ー ト 内 の | 点 に 点 を 打ち ます . 
絶対 番地 | F990H:IF5DH 
入力 条件 | CX<X 座 標 

C XY 座標 

DS: [IOO8H] < を 描画 プレ ー ン 
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b, be bs b。4 bs bz bi be 





[1008H] 





画面 ナン バ 

0 ! ザル と どら 1 

まき !: ジレ で モ 立 2 

0 ! ザ レ で 立 3 

きき レ で な 1 一 3 
(カラ ー の と き ) 


画 
0 
0 
1 
1 


描画 画面 男 囲 
0 :LOWER ま た は ALL 
1 :UPPER 
DS: [640HI] ~~ 描 面 カ ラー (パレ ッ ト 番 号 ) 
-DS: [6 4 2H] 描画 モー ド 


b,。 be bs hb b ぉ 3 bz bi bo 





描画 モー ド 
0 :PRESET 
近作 全 


な し 
AX。 CX。 DX。 興 下 sE6 

CX (X 座 標 ) と DS (Y 座 標 ) で 指定 され る 点 に 点 を 打ち ます . その 点 が ビ 
ュー ポー ト の 範囲 外 の と き は 何 も ちせ ず リ ター ン し ます . カラ ー の 場合 ((1008 
H] の ビッ ト 5, 4 が 1 1 ) は , [ 6 4 0 H] の パレ ッ ト 番 号 に 従っ て 点 が 打 た れ 


また は PIESET と な りす ます 、 
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ー こ as 


ネネ ネネ 六 線 を 引く ネネ ネネ ※ ネ ネ (2016HH) 


| 機 能 | X, Y 座 標 で 指 定 され た 2 点 問 に 線 を 引き ます . た だ し . 線 の 描画 
は , ビ ピュー ポー ト の 範囲 外 に は 行なわ れ ま せん . 
| 絶 対 番地 | F990H:20Il6H 
DS: [|I0C0H て 10CIH] X 座 標 | 
DS: [1I0C2H て 10C3H] 一 Y 座 標 | 
DS: [|I0C4H て 10C5H] ーX 座 標 2 
DS: [1I0C6H て 10C7H] て Y 座 標 2 
DS: [I0C8H て 10C 9H] ライ ンス タイ ル 
DS: [1008H] 描画 プレ ー ン 


bz be bs b。 b。 b。 bi b。 


[1008HH] 





描画 画面 男 囲 
0:LOWER ま た は ALL 
ド ・ せ けず 近 下 衣 

解像度 モー ド 
0:640x200 
1:640x400 


DS: [6 4 0H] 描画 カラ ー (パレ ッ ト 番 号 ) 
DS: [642H] 描画 モー ド 
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[6 42HH] 





描画 モー 
0 :CLEAR ( 黒 ) 
人 痢 人 1 (日 ) 


出力 条件 | な し 
AAXEDX。 BPR SLZ0Mc SE.S 


1, Y1 か ら X2。 Y2 へ 線 を 引き ます . X, Y は 一 32768-3276 
7 の 値 を と る こと が で きま す が , 実際 の 描画 は ビュ ー ポ ボー ト 内 の み に 行 な われ ま 


す 。 カ ラー の 場合 ([1.0 0 8 是 ] の ビッ ト 5。4 が 11 の と き ) は , [6 4 0 H] 

の パレ ッ ト 番 号 で 線 の 色 が 決ま り ま す . 白黒 の 場合 (上 記 以 外 ) は , [6 4 2 H] 

の ビッ ト 0 の 値 に よっ て 黒 ま た は 白 の 線 と な り ま す . 

身 理 

(1) 指定 され た 線 分 と ビュ ー ボ ー ト の 枠 と の 交点 を 求め る こと に よっ て , 実際 の 
描画 の 座標 を 求め る . 

(2) BIOS 直 線 の 描画 を コー ル す る . (CALL 2FB7?7H) 
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* ネ ネネ 領域 の 塗り つぶ し ※ ネ ネネ (21F0OH) 


機 能 境界 色 で 囲ま れ た 領域 を 指定 し た タイ ルス トリ ング て で 塗り つぶ し 


ます . 


絶対 番地 2 全 2 肌 7601 Fa な 


DS : 


DS・ 
DS: 


DS: 


DS: 


DS: 
DS: 
DS: 


DS: 


な し 


AX, 


[ | 
[ | 
[ | 


[ 


[ 


[ 


[ 


[ 


[ 


B XX, 


0C0OH て 10C1IH] 一 塗り つぶ し 開始 点 の X 座標 
0C2H て 10C3H] て 塗り つぶ し 開始 点 の Y 座標 
0C4H] 一 1 ライ ン あ た り の タイ ルス トリ ング の バイ 
ト 数 白黒 の と き : | 
カラ ー の と き : 3 
0C5H] < 境界 色 
カラ ー の と き パレット 番号 
白黒 の と き 黒 :0, 白 : | 
0C6H] 一 タイ ルス トリ ング ・ ラ イン 数 
= テニ タ イル スト リン グ 全 体 の バイ ト 数 を [10 
C 4 H] の 値 で 割っ た 商 
0C8HC10C9H] 一 タイ ルス トリ ング の 格納 領域 
の セグ メン ト ア ドレ ス 
0CAHC10CBH] 一 タイ ルス トリ ング の 格納 領域 
の オプ セツ ッ ド アド レス 
0CCH て 10CDH] で 作業 領域 最終 オフ セッ ト ア ド 
レス 
0CEH て 10CFH] 作業 領域 先頭 オフ セッ ト ア ド 
レス 


欠 。 けり 。 BPI BS 


LTIO ル ー チ ン , GPAINT1,GPAINT2 の 下請 け 処 理 を し ます , 描 
画 開始 点 は ビュ ー ポ ー ト の 中 に ある こと か が 必要 で す . 作業 領域 は デー タ セ グ メ ン 


ト 内 に と り ま す . 


1 6 バイ ト 以 上 必要 で す . 


し ょ け まん ま 1 
し }1O GPAINT2 


0 


が ー ト 
て 1 


** ネ X 軸 に 平行 な 線 の 描画 * ま * (26 0 9H) 


機能 | X 軸 に 平行 な 線上 の 2 点 間 を 指定 し た タイ ルス トリ ング で 結び ます . 


[絶対 番地 | F 9 


DS : 


DS: 


DS: 
DS 


DS: 


L1 0D 長 ] 


DS: 
DS: 


90H:2609H 
[10C4H] 一 | ライ ン あ た り の タイ ルス トリ ング の バイ ト 
数 自 黒 の と き :I 
カラ ー の と き : 3 
[10C6H] 一 タイ ルス トリ ング ・ ラ イン 数 
= タイ ルス トリ ング 全体 の バイ ト 数 を [10 
C 4H] の 値 で 割っ た 商 
[10C8H て 10C9H] タイ ルス トリ ング の 格納 領域 
の セグ メン ト ア ドレ ス 
[10CAHC10CBH] 一 タイ ルス トリ ング の 格納 領域 
の オフ セッ ト ア ドレ ス 
[10DIH] 描画 プレ ー ン 


by 。be ,Ba bbs ha 。 b。 bs 






捕 画 画面 ナン バ 
0- 人 仁子 ター ン 1 ま だ た は みか カラー 
の と き 

。 もら ア am テ 2 

も 0 う デ レー ッ ァ 3 

1 1 : 許 され な い 組 み 合 わせ 

捕 画 画面 地 囲 
0 .LOWER ま だ た は ALL 
まま 抽 抽 


[1I0DCHC ン 10DDH] Y 座 標 
[10DEH て 10DFH] 始点 の X 座 標 (X1) 


DS: [IOEOH て 10EIH] て 終点 の X 座 標 (X 2) 
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| 


な し 
た ル 。 NX。、 で CX。 DX ル 。 BF。 の 】 
(X 1, Y) か ら , (X 2, Y) へ タイ ルス トリ ング を 用 いて 線 を 引き ます . [1 
0 C 4 是 ] の 値 が 1 (白黒 ) の と き は , [ 1 0 D 1 H] で 指定 され た 特定 の プレ ー 
ン に 対し て の み 描 か れ , [ 1 0 C 4 H] の 値 が 3 (カラ ー) の と き は , 3 つの プレ ー 
ン に 対し て 描か れ ま す . カラ ー を 指定 し た と き は , [10D1H] の ビッ ト 5, 4 
は 0 0 と し て 下さ い . 
使わ れる タイ ルス トリ ング は , タイ ルス トリ ング ・ ラ イン 数 が 1 の と き は , 格 
納 領 域 の 先頭 か ら ,。 タイ ルス トリ ング ・ ラ イン 数 が 1 より 大 きい と き は , Y 座 標 
の 値 に よっ て 異な り ま す . ビュ ー ポ ボート の 上 辺 か ら 順 に 繰り 返し 使っ た 場合 と 同 
じ し に な り ま す . 
双 . Y は それ ぞ れ , 次 の 関係 を 満た し て いな く て は な り ま せん . 
0S ミ XSX2S639 
0 ミ Y ミ 199 -(20 0 本 モード) 
or 399 (40 0 本 モー ド ) 
本 ルー チン は , ビュ ー ポ ー ト の 影響 を 受け ませ ん . この ルー チン は , 塗り つぶ 
し に 使わ れ ま す . 


LTIO GCCTIRC し も L も 
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*※* ネ ※ ネ 画面 に PUT す る ※※※* ネ (2669H) 


絶対 番地 | F99 
DS : 
y】 
D き 
DS 
DS 
DS: 
な : 
D き : 
DS・: 
は 人! 
出力 条件 | な し 
A X, 


格納 領域 に ある グラ フィ ッ ク パ タン を 画面 に 書き 込み ます . 


0H:2Z2669H 


[ | 
[ | 
[ | 
[ | 
[ | 


[ | 


[ | 
[ | 
[ | 
[ | 


0 
0 
0 
0 
0 


0 


0AH て 100BH] < 書き 込む 領域 の 左上 の X 座標 
0CHC100DH] < 書き 込む 領域 の 左上 の Y 座標 
0EH て 100FH] て X 方 向 の ドッ ト 数 
IO0HC1011H] YY 方 向 の ドッ ト 数 
12H] 格納 デー タ の カラ ー 白 黒 フ ラグ 

0 : 白黒 

| : カラ ー 
1 3 H] 描画 モー ド 

1 

1 :PRESET 

2 :OR 

3 : AND 

を : 区 は 
4 H] < 白 の 部 分 に つけ る 色 (パレ ッ ト 番 号 ) 
5 H] 黒 の 部 分 に つけ る 色 (パレ ッ ト 番 号 ) 
6HC1017H] < 格納 領域 セグ メン ト ベ ー ス 
8HC1019H] < 格納 領域 オフ セッ ト ア ドレ ス 


し 和え 。 大 。 お び 。 る あり も る 


L IO ルー チン , GPUT1, GPUT 2 の 下請 け を 処理 し ます . 描画 モー ド 
を 0 と する と , 格納 デー タ が その まま 書き 込ま れ , 1 に する と 反転 し て 書き 込ま 
れ ま す . 2 一 4 は 画面 上 の デー タ と 格納 デー タ と の 演算 結果 が 書き 込ま れ ま す . 

[ 1 0 1 2H] の カラ ー 白 黒 フ ラグ は 格納 デー タ が カラ ー の 場合 は [1014 
H], [1 0 1 5 H] で 白 , 黒 の 部 分 に 対応 する 色 を 指定 し ます . 


M まま 科 ず だせ 1!1 
まま ませ 24 4 
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*※*※GDC の 描画 終了 を 待つ ま * (3 48FH) 


機 能 GDC の FIFO が 空 に な り , か つ 描 画 中 で な く な る まで 待ち ま 


す . 
絶対 番地 | F990H:348FH 
な し 
な し 
|[ 酸 壊 | AX 


この ルー チン は CPU か ら GVR AM に 直接 アク セス を する と き に 使わ れ ま す . 
GDC と CPU は 同時 に 動作 し ます が , GDC が 描画 中 に CPU が GVRAM に 
アク セス する と , GDC に よる 描画 が 正常 に 行なわ れ な く な る の で , それ に 対処 
する た め , GDC が 描画 中 の と き は , それ が 終了 する まで 待た なく て は いけ ませ 
ん . この ルー チン で は GDC の ステ ー タ ス を 調べ 。GDC の FIFO が 空 に な り , 
か つ , 描画 中 で な く な る まで 待っ て リタ ー ン し ます . 

親 ル ー チ ン 

も TO GSCREEN 

LIO GVIEW 

ド まま 4 星 CE 65 

も (も | な PP さ や 拉 

LIO GLINE 

し も は ち し 1 ほん も も も 

も を 衣 た も も 
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** 知 形 領域 の 塗り つぶ し ** (3 4 9FH) 


機 能 | X,Y 座 標 で 指定 され た 2 点 を 対角線 と する 知 形 領域 を 単 一 色 で 塗 
りつ のぶ も まず まず 。 

絶対 番地 | F990H:349EH 

入力 条件 | DS : [648H< て 6 4 9H] < 知 形 領域 の 左上 の X 座 標 (X1) 
DS: [64AH て 6 4BH] < 知 形 領域 の 左上 の Y 座 標 (Y |) 
DS: [656H て 657H] で 知 形 領域 の 右 下 の X 座 標 (X 2) 
DS: [658H て 659H] - 知 形 領域 の 右 下 の Y 座 標 (Y2) 
DS: [IOO 8H] 描画 プレ ー ン 


bz be bs b4 bs bz bi bo 


[1008HI] 






・ プ レー ン 1 


0 1 ・ す シル は みる 
5 あら プル テル あぁ 
3 ゲ ダレ シ ー ン は みみ 3 
(ガラ ー の と らき) 
描画 画面 男 囲 
0 :LOWER ま た だ た は AL し L 
も 。 有り 記 P. 長 


DS: [640HIl| 描画 カラ ー (パレ ッ ト 番 号 ) 
DS: [642HIl| 描画 モー ド 


bx:bDe 箇 。 bz sa. Be 必 
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出力 条件 | な し 


上ル 、 し 。 りん 。 本 ど 。 け 】 


3 
敵 


(X1, Y1) と (X2, Y2) を 対角線 と する 知 形 領域 を 単 一 色 で 塗り つぶ 

し ます .。 X, Y は それ ぞ れ , 次 の 関係 を 満た し て いな く て は な り ま せん . 
0 人 あま る 基 人 導 表 を 39 
( 全 Y ま 人 る め め 登 も 9.9 (2 0 0 本 モー ド ) 
or39 9 (4 0 0 本 モー ド ) 

本 ルー チン は , ビュ ー ポ ー ト の 影響 を 受け ませ ん . カラ ー の 場合 ([ 1 0 0 8 HH] 
の ビッ ト 5, 4 が 1 1 の と き ) は , [6 4 0 H] の パレ ッ ト 番 号 で 示さ れる 色 で 塗 
りつ ぶさ れ ま す . 白黒 の 場合 (上 記 以 外 ) は , [6 4 2 H| の ビッ ト 0 の 値 に よっ 
て 黒 ま た は 白 で 塗り つぶ され ます . 


測 
に 


** X 軸 に 平行 な 線 の 描画 ( 単 一 プレ ー ン ) *※* 


機能 |  X 軸 に 平行 な 線上 の 2 点 問 を 指定 し た ライ ンス タイ ル て 結び ます . 
この ルー チン に よる 描画 は , 指定 し た 1 つの プレ ー ン に 対し て の み 
行なわ れ ま す . 

[絶対 番地 | F990H:352FH 

DS: [648H て 6 4 9H] 始点 の X 座 標 (XI) 

DS: [64AH て 6 4BH] Y 座 標 

DS: [656H て 65 7 H] 終点 の X 座 標 (X2) 
DS: [660H て 661H] 一 ラ イン スタ イル 
CH 描画 プレ ー ン 
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CH 
面 ナン バ 
プレ ーッ 1 
プレ ー ン 2 
… プ ゼ ジーン 3 
・ 許 され な い 組 み 合わ せ 
描画 画面 男 囲 
(しり WEK ま だ は A し し 
1:UPPER 
出力 条件 な し 
本 業 | AX。、 CX DP きた. す ] 
解 。 計 


(XX1, Y) か ら (X 2, Y) へ 線 を 引き ます . この と き の ラ イン スタ イル は , 
DS: [660Hー-66 1H| の 内 容 が 使わ れ ま す . 双 . Y は それ ぞ れ , 次 の 関 
係 を 満た し て いな く て は な り ま せん . 

0 る 基 1 る 和え 2 ふ 639 
0 る YY る 3 人 9 (2 0 0 本 モー ド ) 
or399 (4 0 0 本 モー ド ) 

本 ルー チン は , ビ ピュー ポー ト の 影響 を 受け ませ ん . この ルー チン は , 塗り つぶ 
し に 使わ れ ま す . 

* 邊 形 領域 の 塗り つぶ し (3 4 9EH) 

_ ま 軸 に 平行 な 線 の 描画 (2 6 0 9H) 
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あの 系 9 な し し トウ ァ ー タ リア 


共通 ワー クエ リア 
6 20 

6 2 1 

60 22 

0 の 8 

6 2 4 

6 2 6 

627 

628 

6 29 

6 2A 

6 2B 

6 2 C 

6 2 D 

も 2 セー682F 
はり ーー きま 
も 39.2 っ 6 3.3 
634-635 
6 3 6 

637 


画面 モー ド 

すま ププ 湊 字 抽 

ディ ネス る る 2 る aw 

る まん 人 邊 スウ ラン ドカ ラー 

キッ グル ま 座 ラー 
ペレット を 和書 訪 0 の カラ ー ユ コード 
パレ ッ ト 番 号 1 の カラ ー コ ー ド 
パパ レッ ト 番 号 2 の カラ ー コ ー ド 
パレ ッ ト 番 号 3 の カラ ー コ ー ド 
パレ ッ ト 番 号 4 の カラ ー コ ー ド 
パレ ッ ト 番 号 5 の カラ ー コ ー ド 
パレ ッ ト 番 号 6 の カラ ー コ ー ド 
パレ ッ ト 番 号 7 の カラ ー コ ー ド 
ビュ ー ポ ボ ポート の 左上 の 双 座 標 
ビ ピュー ポー ト の 左上 の Y 座 標 
ビュ ー ボ ー ト の 右 下 の 双 座 標 
ビュ ー ポ ボー ト の 右 下 の Y 座 標 
表示 バン ク 

描画 バン ク 


BIOS へ の 引数 エリ ア 


6 4 0 
6 4 1 
6 4 2 
644 一 647 
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描画 カラ ー 
ポー ター カラ ー 
描画 モー ド 


カラ ー パ レッ ト 


第 4 章 


グラ フィ ッ ク 関 連 BASI じ ゴマ ント 





4. 0 _ BASIC コマ ンド の 概要 


本 剖 で は , BASTIC コ マン ド の 解析 を 扱い ます . PC 一 9 8 0 0 シリ ー ズ に 
は , Nss 一 BASIC が 内 蔵 さ れ て お り , 高度 な グラ フィ クス を 実現 し て いま す . 
PC-ー9800 シ リー ズ の ソフ トウ ェ ア 構 造 の 中 で は , BASIC イ ンタ プリ タ 
は その 項 点 に あり , BAS TIC か ら は 直接 ハー ドウ ェ ア は 扱わ ず , 実際 の 描画 は 
L 1 O に 指示 を 出す こと に よっ て 行なっ て いま す . 

BASIC に は , LTO に な か っ た も の と し て , ワー ルド 座標 , L P (Last 
referenced Point) な どの 概念 が 加わ っ て お り , BASIC イ ンタ プリ タ の 主 な 処 
理 は , コマ ンド の 解釈 と ワー ルド 座標 か ら ス クリ ー ン 座標 へ の 変換 相対 座標 か 
ら 実 座標 へ の 変換 な ど で す . 

本 章 で は ,BASIC コ マン ド の 働き を より 深く 知る こと , イ ンタ プ ブリタ の 処理 
を 理解 し て コマ ンド グ 機 能 の 変更 , 拡張 , さら に は , 新しい BASIC コ マン ド 
を 作れ る よう な 知識 を 持つ こと を 目的 と し , 主 な コマ ンド に は 詳細 な フロ ー チ ャ 
ー ト を 付け て イン タプ リタ の 処理 が わか る よう に し , さら に そこ で 使わ れ て い 
る ほとん どの 内 部 サブ ルー チン に つい て 解説 し まし た . これ は , 読者 が イン タプ 
リタ の 解読 を 行なう 際 , また は , 新しい コマ ンド を 作ろ うと する 際 に は , 非常 に 
役立つ で し ょ う . 
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CIRCLE GC ITRCLE 
りう な じ LS 


L P 最 終値 


円 の 中 心 
ビュ ー ポ ー ト の 左 
上 角 

変化 な し 
変化 な し 

示 ア タタ ンド 光 に 
よる 
領域 の 右 下 角 
直線 の 終点 



























[は ま 】 に わり も は g 
[ 2 ] 
DRAW 


GCOLOR1 
GCOLOR2 



































うり 
LINE 


GGET 
GLINE 





























MA P 変 化 な し 
[1] PAINT GPAINT1 | 変化 な し 
[2] PAINT GPAINT2 | 変化 な し 
PO INT 指定 座標 


[1] POINT (関数 ) 
[2] POINT (関数 ) 
PRESET 
だ の も ます 
だ りり よ と 
ROLL 
SCREEN 
VIEW 


変化 な し 
変化 な し 

指定 座標 

指定 座標 
右 域 の 左上 角 
変化 な し 
画面 の 左上 角 
ビュ ー ポ ボ ポー トク の 諾 
上 角 

変化 な し 

ビ ピュー ボー ト の 堪 
上 角 

変化 な し 





GPOINT 
で に り 拓 1 
は だ SD ら 上 
は FM 上 すま 。 2 
GROLL 
GSCREEN 
GVIEW 
















































VIEW (関数 ) 
WINDOW 













WINDOW (関数 ) 
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すす けけ 本 全 尽 も 


円 。 椿 円 , 円 弧 。 扇形 の 描画 , 塗り つぶ し を 行なう (塗り つぶ し は , 
PC--980l E グ FM に 限ら れる )、. 


絶対 番地 | E800E:2ZD32ZH 








CIRCLE | (Wx, Wy) |, < 半径 > [, < パレ ッ ト 番 号 1>] 
SHPRP (cx, の 
[, < 開始 角度 >] [, < 終了 角度 >] [ く < 比 較 >] 
に : 才 4。 〈 パ レット 番号 2> ]] 
< タイ ルス トリ ング > 

描画 は 。L IO ル ー チ ン GC IRCLE を コー ル し て 行ない ます . 
たこ か 。 し し る 
現在 の アク ティ ブ 画 面 を 消去 し ます . 
| 絶対 番地 | E800H:3022H 


CLS [< 機能 >] 

処 理 

オペ ラン ド が 2 また は 3 の と き に グラ フィ ッ ク の 消去 ルー チン が 使わ れ ま す . 
消去 は ,。 L IO ル ー チ ン GCLS を コー ル し て 行ない ます . 
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[150A] 一 1 オペ ラン ド 省 略 時 の 値 を 入れ る 


式 評 価 


数 式 は 存在 する か ? 


値 は 1 一 3 の 範囲 内 か ? llegal function call 


[150 A ] へ 格納 


Syntax error 


テキ スト 画面 消去 


LP の 初期 化 


RETURN 
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4#、 さ は も も し 生 居 


[ | ] 画面 の 各部 の 色 を 指定 し ます . 
[2] カラ ー パ レッ ト を 変更 し ます . 
[ 3 ] テキ スト 画面 の 文字 に 色 を つけ ます . 
E800H:3022H 
[ ! ] COLOR [< ファ ンク ショ ンコ ー ド >〉] [, < バッ ク グ ラウ ンド カ 
ラー>] [, < ボー ダー カラ ー>] [, < フォ アグ ラウ ンド カラ ー>] 
[ 2」 COLOR= (< パレ ッ ト 番 号 >,。 < く カ ラー コー ド >) 
[ 3] COLOR@(XLYU 一 (XX2,Y2) [,。 < ファ ンク ショ ンコ ー ド >] 
次 に 来る トー クン に よっ て コマ ンド が 異な っ て 解釈 され ます . “=" の 場合 は 
[ 2] と な り , “@” の 場合 は [ 3 ] と な り ま す . その 他 の 場合 が [ 1 ] で , は 
め に ここ で 処理 ルー チン は 分 岐 し , 以下 は それ ぞ れ の 処理 ルー チン で 行なわ れ ま 
す . 
[ 1 ] の 場合 は , < ファ ンク ショ ンコ ー ド > を 除く 他 の オペ ラン ド の 処理 は , L 
IO ルー チン GCOLOR 1 を コー ル し て 行い ます . 
[ 2 ] の 場合 は , L IO ル ー チ ン GCOLOR 2 を コー ル し ます . 


4. 4 DRAW 


[ 機 能 | グラ フィ ッ ク 描 画 サ プ コ マン ド 列 に 従っ て , 図形 を 描き ます . この 
コマ ンド は PC 一 9801E プ FM の ディ スク BAS 1C で の み 
使用 可能 で す . 

| 絶対 番地 | E800H:3E5CH 

DRAW < 文字 列 式 > 


D 1 レジ スタ に 3 3 耳 を 代入 し て ,。 シス テム コー ル -( す RNNー 6 是 ) で イッ 
タプ リタ R AM の 起動 を 行ない ます . 
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2 


[ 機 能 | [ |] ファ イル の 中 の デー タ を バッ ファ に 読み 込み ます . 
[ 2 ] 画面 上 の グラ フィ ッ ク パ タン を 配列 に 読み 込み ます . 
E800H:34A7H 
[ 1] GET [ 半 ] < ファ イル 番号 > [ , < 数 >] 
[2] GET [@] (Sxl,Sy2) 一 | (Sx2, Sy2) 
STEP( x,Y) 


, く 配列 変数 名 >[( く < 要素 > ) ] 





処 理 

まず , 先頭 に “@ "が あっ た ら 読 み と ば し ます 。 次 に 来る トー クン に よっ て コ 
マン ド が 異な っ て 解釈 ミ れ ます . “(”" の 場合 は [ 2 ] と な り , その 他 の 場合 は [ 1 ] 
と な り ま す . ここ で 処理 ルー チン は 分 岐 し , 以下 は それ ぞ れ の 処理 ルー チン で 行 
な われ ます . 

[ 2 」 の 場合 は 。 L IO ルー チン GGET を コー ル し ます 。 


GET 


@ が あれ ば 読み と ば し 次 の トー クン を 読む 
no 
ディ スク の GET へ 
ki の 表示 に 
STOP キ ー 押 下 時 の 処理 コー ドー1 break in 表示 を し 
CONT を 可能 と する 。 
*(X。 Y)” の 評価 


[150A, B] 一 X, [150C, D] 一 Y LI 0 へ の 引数 エリ ア X 1,Y 1 
読 句 解析 (トー クン の 読み ) 
no 
Syntax error 
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次 の トー クン は STEP か ? 


(X, Y)” の 評価 "STEP( X, Y ) を 評価 し 、 絶 対 座標 へ 変換 


[150E,F] 一 X, [1510.11] 一 Y LI 0 へ の 引数 エリ ア X 2,Y2 


nO 
Syntax error 


配列 の 評価 を 行い 、 配 列 の 情報 を 求め る 


[1512, 3] 一 配列 の オフ セッ ト ア ドレ ス 
[1514,5] 一 配列 の セグ メン ト ア ドレ ス 
[1516,.7] 一 配列 の 長 さ 


no 
Syntax error 


LI 0 コー ル の 準備 


LIO GGET を コー ル す る 


RETURN 
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て に FT 1 生 モ 


機 能 | [1] 2 点 間 に 直 線 を 引く , 2 点 を 対角線 と する 四辺 形 を 描く , そ 
の 内 部 を 塗り つぶ す な ど . た だ し , パレ ッ ト 番 号 2, タイ ルス トリ 
ング に よる 塗り つぶ し は , PC 一 9801E ノ FM に 隈 られ まず 。. 
[ 2 ] | 行 全体 を 入力 し ます . 

E800H:305FH 

| 書式 | [|] LINE [|(Wxl WyI) ド コ (Wx2, Wy2) 


STEP(xl, y|) STEP(x2, Y2) 
[, < パレ ッ ト 番 号 1>] [JB] [, |< ラ イン スタ イル > | ] 
BF < パレ ッ ト 番 号 2 > 


< く タ イル スト リン グ > 
[ 2 ] LINE INPUT [<" プ ロン プ ト 文 "> : ] < く 文字 変数 > 
処 理 
次 に くる トー クン に よっ て コマ ンド が 異な っ て 解釈 され ます . INPUT (内 
部 コー ド A 7 H) の 場合 は [ 2 ] と な り , その 他 の 場合 は [1] と な り ま す . こ 
こ で 処理 ルー チン は 分 岐 し , 以下 は それ ぞ れ の 処理 ルー チン で 行なわ れ ま す . 
[ 1 ] の 場合 は , L IO ルー チン GL I NE を コー ル し て 描画 を 行ない ます . 


4。 / | 呈 A 
機 能 | スク リー ン 座 標 , ワー ルド 座標 の 相互 変換 を 行ない ます . 
絶対 番地 | E800H:487FH 


| 機能 | 
MAP (< 数 式 >, < 機能 >) 


< 機能 > 値 に よっ て 場合 わけ し , それ ぞ れ の 処理 を 行ない ます . 


ーー 
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機 能 [ | ] 指定 され た 境界 色 で 囲ま れ た 領域 を , 指定 され た 色 で 塗り つ 


が も まず. 
[ 2 ] 指定 され た 境界 色 で 囲ま れ た 領域 を ,。 タイ ル パ タ ー ン て で 塗り 
つぶ な も 事 ず ・ 


| 絶対 番地 ] E880H:3181IH 


| 書式 | [」] Me (Wx.Wy) 
STEP(x,y) 

[ 2] PAINT | (Wx,Wy), 
に 


[, < 領域 色 > [, < 境界 色 >]] 





< タイ ルス トリ ング > [, < 境界 色 >] 





[, < バッ ク グ ラウ ンド ・ ス トリ ング >] 
( 
“(Wx,Wy)” を 評価 し た 後 の ,。 次 の トー クン が 文字 列 型 か どう か で 処理 が 分 岐 
し ます . 文字 列 型 の 場合 は [2] で , それ 以外 の 場合 は [ 1] で す . 
[ 1 ] の 場合 は , L IO ルー チン G P A I NT 1 を コー ルレ し , [ 2 ] の 場合 は , 
LTIO ル ー チ ン GPAINTT2 を コー ル し ます . 


*e*” が あれ ば 読み と ば す 
領域 色 、 境 界 色 を FF( 省 略 ) と する 


[1510, 11] 一 シス テム スタ ッ ク エ リア 先頭 LI 0 へ の 引数 エリ ア 
アド レス ワー クエ リア 最終 
[1512, 13] テキ スト の 最終 アド レス ワー クエ リア 先頭 


*(Wx,Wy)* ま た は *STEP(Wx, Wy )′ の 評価 LI 0 へ の 引数 エリ ア 
お よび オリ ジ ナ ルス クリ ー ン 座標 へ 変換 旨 


[150A, B] 一 X 座標 、[150C, D]-Y 座標 


llegal function 
cal 
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式 評 価 
数 式 は 存在 する か ? 
SN ら 


値 は 0 - 7 の 莉 囲 内 か ? llegal function 
Call 
1150E | へ 格納 LI 0 へ の 引数 エリ ア 
領域 色 ハ レッ ト 番 号 


ーー トン ンタ レ ーー 


数 式 は 存在 する か ? 


値 は 0 - 7 の 範囲 内 か ? llegal function cal 
|150F ] へ 格納 LIO へ の 引数 エリ ア 
境界 色 ハ レッ ト 秋 号 


語句 解析 (次 の トー クン の 読み ) 


Syntax error 


LIO GPAINT 1 を コー ル す る 


キー ー 
LIO コー ル の 準備 
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LI 0 へ の 引数 エリ ア 
I151A -D|・|1510- 3 | デ 
ワー クエ リア の アド レス を 電送 
1150E|・ 0. 11514|・FF て 
境界 色 を 省略 値 と する 


文字 列 の アド レス 等 を 得る 
|150F | ・ 女 字 列 の 長 さ LI 0 へ の 引数 エリ ア 


ルス トリ ング の ! 
[1510,1] オフ セッ ト ア ドレ ス し トリ ング の 情報 
[1512.3] セグ メン ト ア ドレ ス 


nO 
数 式 は 存在 する か ? 
2 legal function 
値 は 0- 7 の 範囲 内 か ? mn 


[1514] へ 格納 還 
ーー トー クン テレ ーー 3 ) 
式 評 価 
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数 式 は 存在 する か ? ー 


Type mismatch 


erTOr 


文字 列 の アド レス 等 を 得る 


[1515] 一 文字 列 の 長 さ 
[1516.7] 一 オフ セッ ト ア ドレ ス 
[ 1518.91] セグ メン ト ア ドレ ス 


語句 解析 (次 の トー クン を 読む ) 


Syntax error 
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、 2 05 "im ME) 


Last Referenced Point (LP) を 変更 し ます . 
絶対 番地 | E800H:3505H 
PONTICWW) 


STEP(x, y) 
“^(Wx,Wy) を 評価 し た 後 , LP の 記憶 域 (0060H:1588-ー158F 
H) に 格納 し ます . 実際 の 処理 は “(Wx,Wy) ” の 評価 ルー チン (0E800H: 
36C5 是 ) を ゴー ル ず る だ げ で ず : 


*(Wx,Wy)” また は “STEP(Wx, Wy)* 
の 評価 


語句 解析 (次 の トー クン の 読み ) 


Syntax error 


RETURN 
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キー POINT (関数 ) 


機 能 [|] LP の 値 を 与え ます . 
[ 2 ] 指定 され た 座標 上 の ドッ ト の 色 を 与え ます . 


絶対 番地 | E800H:499CH 


書式 | [1I] POINT (< 機能 >) 


[ 2] POINT (Sx,Sy) 
| 処 理 | 


最初 の 引数 の 後 “,。" が あれ ば , [2 ] と な り , それ 以外 は [ 1] と な り ま す . 
生 。 | ビビ. な も と 


画面 上 の 任意 の ドッ ト を リセ ッ ト し ます . 

| 絶対 番地 | E800H:315H 

PRESET | (Wx,Wy) 

STEP(xy) 

処 理 
PRESET と PSETT は 同じ ルー チン を 利用 し て いま す . 相違 点 は , L IO 

へ 渡す AH レジ スタ の 値 が PRE SET で は 2 と な る こと だ け で す . 処理 は 。 L 
# り ルー チン GPS5E 子 あま サ ユー ル し て 全 な いま 才 


[, < パレ ッ ト 番 号 >] 





だ と E。 あ 。 ル 、 ま 


機 能 | 画面 上 の 任意 の ドッ ト を セッ ト し ます . 

| 絶対 番地 | E800H:314CH 

PSET | (Wx,Wy) |[, < パレ ッ ト 番 号 >] 
STEP(x,y) 

処 理 


IAA1 


凌 す AH レジ スタ の 値 が P SET で は 1 と な る こと だ け で す 。 処理 は 。 L IO ル 
ー チ ン GPSETT を コー ル し て 行ない ます . 


た っ 
こさ 


4 


PRESET 


1 0 へ 引渡 す 
本 人 生 Me あい 


パレ ッ ト 番 号 を 省略 値 に する 


[150E] 一 FF 


*(Wx,Wy)′ また は \STEP(Wx, Wy )* を 評価 
し 、 オ リ ジ ナ ルス クリ ー ン 座標 へ 変換 する 


LI 0 へ の 引数 エリ ア 


[150A, B] 一 X 座 標 , [150C,D] 一 Y 座標 の 


式 評 価 


数 式 は 存在 する か ? 


値 は 0 一 7 の 範囲 内 か ? 上 egal function 
Call 


LI 0 へ の 引数 エリ ア 
[150E |] へ 格納 パレ ッ ト 番 号 


語句 解析 (次 の トー クン の 読み ) 


Syntax error 





175 


ーー に ーー 生 - り 用 


機 能 | [1] バッ ファ の 中 の デー タ を ファ イル に 書き 出し ます . 
[ 2] グラ フィ ッ ク パ タン を 配列 か ら 画 面 に 書き 込み ます . 
[ 3 ] 漢字 を 画面 に 書き 込み ます . 

| 絶対 番地 | E800H:350EH 

[ | ] PUT [ 放 < ファ イル 番号 > [, < 数 >] 
[2] PUTL@] (Sx,Sy), < 配列 変数 名 〉 [(< 要 素 >) ] [, < 条件 >] 
[< フォ アグ ラウ ンド カラ ー>: < パッ ク グ ラウ ンド カラ ー〉] 
[ 3] PUT[@] (Sx,Sy), KANTJI (< 漢字 コー ド >)[, < 条件 >] 

[, < フォ アグ ラウ ンド カラ ー>, < パッ ク グ ラウ ンド カラ ー>] 

まず , 先頭 に “@ が あっ た ら 読 み と ば し ます . 次 に 来る トー クン に よっ て コ 
マン ド が 異な っ て 解釈 され ます . “(" の 場合 は [ 2 ] また は [ 3] となり, その 
他 の 場合 は [1] と な り ま す . ここ で 処理 ルー チン は 分 岐 し , 以下 は それ ぞ れ の 
処理 ルー チン で 行なわ れ ま す . 

[2] また は [3] の 場合 は , “(Sx,Sy) ” を 評価 し た 後 , 継ぎ の トー クン が K 
ANJ I (内 部 コー ド ABH) な ら ば [3] に な り , それ 以外 の 場合 は [ 2 ] と 
な り ま す . |2] で は LEL ま OO ルー チン GPUT 1 を 。 3]. で は L LO ルー チン G 
PUT 2 を コー ル し ます . 
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1 作 引 も を 生 . 


グラ フィ ッ ク 画 面 全体 を 上 下 , 左右 に スク ロー ル し ます . 上 下 は | 
ドッ ト 単 位 , 左右 は 8 ドッ ト 単 位 で す . PC 一 9 8 0 | で は 上 方 向 
の み で す . 


絶対 番地 | E800H:3242H 
ROLL [< 上 下方 向 ド ッ ト 数 >] [, < 左右 方 向 ドッ ト 数 >] [, 1] 
す 


L IO ルー チン GROLL を コー ル し ます . 


ROLL 


Missing Operand 


[150A.B] 一 0, [150C,D] 一 0 LIO へ の 引数 エリ ア を 
[150E] 0 0 クリ ア す る 。 


式 評 価 
no 
数 式 は 存在 する か ? 


Megal function cal 
LIO へ の 引数 エ リア 
ーー キ ニー や 
し 
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式 評 価 


数 式 は 存在 する か ? 


値 は ょ 639 以 内 か ? llegal function Cal 


LIO0 へ の 引数 エリ ア 
左右 方 向 ド ッ ト 数 


〇 の 


Syntax error 


[150C,D| へ 格納 


Syntax erroOr 


LIO へ の 引数 エリ ア 
グリ デフ メラ ダグ 


Syntax error 
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し 1 の 本 嘩 を 月 


グラ フィ ッ ク 画 面 に 対し て 種々 の モー ド を 設定 し ます . 
絶対 番地 | E800H:32C0OH 
SCREEN [< 画面 モー ド >] [, < 画面 スイ ッ チ >] 


[, < アク ティ ブ ペ ー ジ >] [, < ディ スプ レイ ペー ジ >] 


LTIO ル ー チ ン GSCREEN を コー ル し ます . 


SCREEN 
yeS 
Missing operand 


[i4FE. FF] - 0, [1500.01]- 0 スク リー ン LP を (0,.0 ) に セッ ト 
[14ED]- 0 WINDOW 実 行 済 フ ラグ クリ ア 


[150A, B] 一 FFFF, [150C, D]ーFFFF LI0 へ の 引数 エリ ア 
式 評価 、 数 式 存 在 ? ー 


値 は 0 一 3 の 範囲 内 か ? llegal function 
Cal 
[150 A ] へ 格納 LIO へ の 引数 エリ ア 
画面 モー ト 
ーー トー クン ンタ ーー G) 
式 評価 、 数 式 存在 ? 1 


整 数 化 





9 


LIO へ の 引数 エリ ア 
Ja 画面 スネ ィ ッ チ 
式 評価 、 数 式 存 在 ? ー 
整 数 化 


値 は 0 一 11 の 範囲 内 か ? llegal function cal 
[150C ] 格納 LIO へ の 引数 エリ ア 
いこ 
壮介 旨 半 "Pete oWM 


式 評価 、 数 式 存在 ? ー 
壁 数 化 


値 は 0 - 31 の 範囲 内 か ? legal function cal 
1150D| へ 格 納 


LIO コー ル の 準備 お よび 
LIO GSCREEN を コー ル す る 


L P の 初期 化 
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時 。 ! 0 。 すま 束 本 


ビュ ー ポ ー ト を 設定 し ます . 
E800H:3354H 
VIEW (Sxl.SyI) - (Sx2,Sy2) [, < 領域 色 >] [, < 境界 色 >] 


LIO ル ー チ ン GVIEW を コー ル し ます . 


LO へ の 引数 エリ ア 
[1512.13] 一 FFFF ee 
領域 色 、 境 界 色 を 省略 (FF) と する 


画面 モー ドミ 2 か ? ーー 
1 に 
画面 の た て の ライ ン 数 
TnO 


Syntax error 


legal function 
cal 


LIO へ の 引数 エリ ア X1 


Syntax error 


llegal function 
Cal 


LIO へ の 引数 エリ ア Y1 
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Syntax errOr 
Syntax error 


Syntax error 


llegal function 


cal 


LIO へ の 引数 エリ ア X 2 


Syntax error 


llegal function 


cal 


LIO へ の 引数 エリ ア Y 2 


Syntax errOr 
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値 は 0 一 7 の 稚 囲 内 か ? Megal function 
cal 
LIO へ の 引数 エリ ア 


[1512] へ 格納 領域 色 


数 式 は 存在 する か 7 いい 


整 数 化 


llegal function 
cal 
5 写 LIO へ の 引数 エリ ア 
11513| へ 格納 境界 色 


Syntax error 


WINDOW 実 行 済 か ? 


ワー ルト ・ ス クリ ー ン 変換 係数 を 計算 


LP の 初期 化 
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4. 17 VIEW (関数 ) 


機 能 | 現在 の ビュ ー ポ ー ト の 設定 位置 を 与え ます . 

絶対 番地 | E800H:4A43H 

書 式 | VIEW (機能 >) 

処 理 

ビュ ー ポ ボート 記憶 域 (0060H: 62Eー6 3 5H) の 中 か ら < 機能 > に 対 
応 す る 座標 を FACC1 に 転送 し ます . 


(数 式 ” の 評価 
Megal function 


ビ ピュー ボー ト 記 憶 域 か ら 対応 する WINDOW 閲 数 か ら 
値 を 読み 出す 


cal 


ゃ を 
nO 
ーー ト 
H 
ァ > 
ー ポ ボー \ 


FACC 1 へ 格納 する 
ED ニー ー Sym er 
RETURN 
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4. 18 WINDOW 
ビュ ー ポ ー ト に 対応 する ワー ルド 座標 を 設定 し ます . 
絶対 番地 | E800H:3415H 


書式 | WINDOW (Wxl,Wyl) -(Wx2,Wy2) 


座標 を 評価 し て ,。 ウィ ンド ウ の 記憶 域 (0060H: 14EEー14FDH) 
へ 格納 し ます . 


Syntax error 
Syntax error 


Syntax error 


Syntax error 


Syntax error 
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式 評価 お よび 実数 化 


|1516-19| ヘー 時 的 に 格納 


作業 域 X1、Y 1,. X2.Y2 を ウィ ンド ウ 座 標 
の 格納 域 |14EE -FD] へ 転送 


ワー ルド 座標 か ら ス クリ ー ン 座標 へ の 
変換 係数 を 計算 


LP の 初期 化 


RETURN 


Megal functioh 
cal 


Syntax error 


Megal function 


Cal 


Syntax error 


Syntax error 








4. 19 WINDOW (関数 ) 


現在 の ウィ ンド ウ の 設定 位置 を 与え ます . 
絶対 番地 | E800H:4A68H 


書式 | WINDOW  ( ヾ バ 機 能 >) 


ウィ ンド ウ 記 憶 域 (0060H:14EEー14 FDH) の 中 に < 機能 > に 対 
応 す る 座標 を FACC 1 に 転送 し ます . WI NDOW が 未 実行 の 場合 は VIEW 
関数 の ルー チン に 移り , ビ ピュー ポ ー ト の 座標 を 得る こと に な り ま す . 


*( 数 式 * の 評価 


値 は 0 一 3 の 範囲 内 か ? 


ーー 3 0 nO 
0 

WNDOW は 実行 済 か ? 【 ) 
0 


llegal function 


cal 


VIEW 開 数 へ 


ウィ ンド ウ 記 憶 域 か ら 対 応 する 
値 を 読み 出す 


FACC 1 へ 格納 する 
内 
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4. 20 BASIC 内 部 サ プ ブルー チ ン 


ここ で は , 4。 1 か ら 4. 1 9 で 解説 し た BASIC コ マン ド の 処理 で 使わ れ 
て いる ほとん どの サブ ルー チン に つい て 解説 し ます . ここ に 含ま れ て いる サブ プル 
ー チ ン は ほとん ど が 文 の 解釈 で 使わ れ ま す . 読者 が 新しい BASIC コ マン ド を 
作る と き , 既存 の BASIC コ マン ド を 改良 し よう と する と き に 利用 する と 便利 
で す . 次 に 全 ル ー チ ン の 一 覧 表 を 掲げ ば ます. ペー ジ の と ころ に “*"”" を つけ た ル 
ー チ ン は 本 シリ ー ズ 第 1 巻 で 解説 され て いま す の で そちら を 御 参照 下さ い . 


セグ メン ト ア ドレ ス は すべ て E 8 0 0 是 で す . 


いい 


1BC2 語 名 解析 
1EAC 数 式 評価 お よび 整数 化 * 
1EB2 -s.。 ま ky グ 190 
1ED1 も 4 生 ik ッ ま より ジェ アクト 190 
1EDA "この チェ ッ ク と り ジ ェクト 191 
1EE3 ") "の チェ ッ ク と リジェ クト 191 
まま を 数 式 チ ェ ッ ク 玉 
356D 描画 モー ド と カラ ー ス イッ チ の 評価 192 
3 5D1 0 一 7 の 範囲 が チェ ッ ク 193 
3 5 DD ^(Sx,。 Sy) ” の 評価 193 
367B 配列 情報 を セッ ト す る 194 
36C5 *(Wx, Wy)" また は “STEP (Wx, Wy)” の 評価 194 
きす チ 4 整数 化 195 
ひび す 遇 ド AC し 1 す つ ド 『ACC2 195 
3788 [1B メ ー ギ 3#] …FACC1 196 
3795 [8 メ ー†3| つど ACC2 196 
37A6 FACC1 一 [BX-+ 3] 196 
37B2 文字 列 型 FACC 1 か ら 文 字 列 の アド レス を 得る 197 
ます だ 文 終了 チェ ッ ク 197 
37D2 LP の 初期 化 198 
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3810 
381A 
S9 り 7 
3928 
3935 
393B 
3941 
3D5D 
3D62 
3D67 
4759 
491A 
493E 
494E 
4B8C 
5627 


56BC 


56C と 7 
5768 
5BEE 
5 し 4D 
5E14 
AEB2 





エラ ー チ ェ ッ ク と 出力 

ワー ルド ・ ス クリ ー ン 変換 比 を 求め る 
@ の 読み と ば し と “ ( “の チェ ッ ク 
@ の 読み と ば し 

* の チェ コゲ ザク 

L IO コー ル の 準備 

ビ ピュー ポート 内 か どう か チェ ッ ク 
“Syntax error” 出力 

*Illegal function call” 出力 
*Type mismactch" 出力 

AX 一 FACC 1 お よび “ ) “の チェ ッ ク 
[BXー 圭 3] FEACC1 
FACC]ーFA で と を? 

F 江 CC サー トド BX デー ギ 9] 

“ (数式 " の 評価 

実数 加算 

実数 減算 

実数 乗算 

実数 除算 

整数 化 

実数 化 

実数 比較 

式 評価 


党 革 区 革 革 千 鞭 革 
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ネネ 来 ※ 区 切り 文字 ,。 の チェ ッ ク ホ ネネ キ 


E800H:IEB2H 
DS-0060H 
AL トー クン の 情報 (中 間 コ ー ド 等 ) 
B Xー ト ー ク ン の タイ プ 
CF で 0 (トー クン が "の 場合 ) 


CFー| (それ 以外 の 場合 ) 


[破壊 | な し 
[解説 


この ルー チン は , 語句 解 析 (1 BC 2) の コー ル 後 , “," の チェ ッ ク の た め コ 
ー ル する も の で す . この ルー チン を 呼ぶ 前 に は AL, BX に トー クン の 情報 等 が 
格納 され て いな く て は な り ま せん . AL に ある トー クン が “," で ある な ら , キャ 
リー フラ グ を クリ アレ し , それ 以外 の 場合 は , キャ リー フラ グ を セッ ト し て , 戻り 
ます . 


※※※ 氷 ご ( の チェ ッ ク と リジェ クト ※※ ネ ※ ネ 


| 絶対 番地 | E800H:IEDIH 
DS-0060H 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン 先頭 アド レス 
Syntax error (トー クン が “(" で な い 場 合 ) 
人 


テキ スト ボ ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “( で ある な ら , そ の まま 呼び 出し 元 へ 戻り , そ れ 以 外 の 場合 は , “Syntax 
error を 出力 し て イン タプ リタ に 制御 を 移し ます . 


ーー 
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※※※ , の チェ ッ ク と リジェ クト ※※ ネ ※ 
E800H:IEDAH 
| 入力 条件 | DS-0060H 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
0060H: [6E8, 8H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン の 先頭 アド レス 
Syntax error (トー クン が 「, で な い 場 合 ) 
AN る で た 仙 z 謙 (Dai お 所 E お 


テキ スト ポイ ント (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “。 "で ある な ら , その まま 呼び 出し 元 へ 戻り , それ 以外 の 場合 は , “Syntax 
error を 出力 し て イン タプ リタ に 制御 を 移し ます . 


※ 氷 床 ) の チェ ッ ク と リジェ クト ネネ ※ 


絶対 番地 | E800H:IEE3H 

入力 条件 | DS-0060H 

0060H: [6EA, BH] トー クン の 先頭 アド レス 
出力 条件 | 0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 次 の ト ー ク ン の 先頭 アド レス 
エラ ー| Syntax error (トー クン が ) で な い 場 合 ) 

村 本 | AM す 8 き MC CAD SS ヤキ けけ チ | の PS S 


測 
吉 


テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “"(" で ある な ら , その まま 呼び 出し 元 へ 戻り , それ 以外 の 場合 は , “Syntax 
error を 出力 し て イン タプ リタ に 制御 を 移し ます . 
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ネネ ※ ネ 条件 (描画 モー ド ) と カラ ー ス イッ チ の 評価 **※※ ネ 


E800H:356DH 

DS-0060H 
0060H: [6EA, BH] ーー ト ー ク ン の 先頭 アド レス 

DS: [I514H] 描画 モー ド 値 
DS:[I515H] で 0 (第 2, 3 オペ ラン ド が 省略 され た 場合 ) 
( | (それ 以外 の 場合 ) 
DS: [I51I6H] 第 2 オペ ラン ド 値 (フォ アグ ラウ ンド カラ 
DS: [1I517H] 一 第 3 オペ ラン ド 値 (バッ ク グ ラウ ンド カラ 

…) 

Syntax error (条件 が 定め られ た も の 以外 , 第 2, 3 オペ ラン ド が 
0 て 7 の 範囲 外 , 第 3 オペ ラン ド て 文 が 終了 し な い 
場合 ) 

AX, B 玖 0 は XS し 5 や ErS 

解説 

テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら “[, < 条件 >] [, < フォ 
アグ ラウ ンド カラ ー>]」” の 形式 の トー クン の 評価 を 行ない DS: [1514H 

ー1 5 1 7 H] に 格納 し ます . 

条件 と 描画 モー ド の 値 と の 対応 は 次 の よう に な っ て いま す . 


PSET 

に を 作っ 症 
OR 
AND 
XOR 








条件 に これ 以外 の トー クン が あっ た 場合 , 第 2, 第 3 の オペ ラン ド の 評価 値 が 
0 一 7 の 範囲 を 超え る 場合 , 第 3 オペ ラン ド が 文 の 終了 で な い 場 合 に は , “Syntax 
error を 出力 し て イン タプ リタ に 制御 を 移し ます . また , 本 ルー チン で は , L 1 
O コ ー ル の 準備 (3 7 C9H) も 同時 に 行ない ます . 


192 


* ネ ※ ネ 整数 化 お よび 0 て 7 の 男 囲 チェ ッ ツク * ネ ※ ネ *※ 


E800H:35DIlH 
DS-0060H 
FACCI< を 数値 
BCVAL 数 値 の 型 
A X 整数 化 さ れ た 数 値 
Ilegal function call (数 値 が 0 7 以外 の 場合 ) 
AX まだ も ち X お きす 1 の お 1 


FACC 1 に ある 数 値 を 整数 化し , 値 が 0 一 7 の 範囲 に ある か チェ ッ ク す る . 
範囲 内 に ある 場合 は , AX レジ スタ に その 値 を 入れ て 戻り ます . 範囲 外 の 場合 は , 
*Illigal function call” を 出力 し て イン タプ リタ に 制御 を 移し ます . 


※ ホ ネネ 「(SxSy) の 評価 **※ 


| 絶対 番地 | E800H:35DDH 


入力 条件 | DS-0060H 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン の 先頭 アド レス 
AX で Sx の 評価 値 (オリ ジ ナ ルス クリ ー ン ) 
B XSy の 評価 値 (オリ ジ ナ ルス クリ ー ン ) 
0060H: [|4FE, FH] 一 Sx の 評価 値 
0060H: [|I500, |IH] 一 Sy の 評価 値 
0060H: [|588 て BH] Sx の ワー ルド 座標 へ の 変換 値 
0060H: [|58C て FH] 一 Sy の ワー ルド 座標 へ の 変換 値 
ェ エラー| Syntax error (トー クン が “(Sx,Sy) "の 形式 に な っ て いな い 場 合 ) 
Over flow(Sx Sy の 評価 値 が 2 バイ ト 整 数 の 範囲 を 超え た 場合 ) 
Illegal function call (Sx, Sy が ビュ ー ポ ー ト 外 の 場合 ) 
| 本 " ホ 欄 | AONASX7g0X,。 一 HH XS ご 有 了 h ) 考 疾 
テキ スト ポイ ンタ (6 EA, BH) の 指す アド レス か ら “(Sx,Sy)” の 形式 の ト 
ー ク ン の 評価 を 行い , Sx の 値 を AX, Sy の 値 を BX レ ジス タ に それ ぞ れ 格納 
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し て 戻り ます .。 また この 値 で LP を 更新 し ます . スク リー ン LP に は その まま で , 
ワー ルド LP に は , ワー ルド 座標 に 変換 し て 格納 され ます . この 形式 に な っ て い 
な い 場 合 は “Syntax error” を 出力 し て イン タプ リタ に 制御 を 移し ます . 


*※ ネ ※ 配 列 名 か ら ア ドレ ス 等 を 得る ※* ネ * 


| 絶対 番地 | E800H:367BH 
| 入力 条 件 | DS-0060 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 次 の トー クン の 先頭 アド レス 
A X で 配列 の オフ セッ ト ア ドレ ス 
B X< 配 列 の セグ メン ト ア ドレ ス 
C X で 配列 の 長 さ (バイ ト ) 
Syntax error (トー クン が 配列 名 で な い 場 合 ) 
AX, BX。 CX。 DX。 SHOCD3[ お PD E あ 
テキ スト ボイン タ (6EA, BH) の 指す アド レス に ある 配列 名 か ら , 配列 の 
先頭 アド レス オフ セッ ト , セグ メン ト , 長 さ を 求め 、 それ ぞ れ AX, B 叉 , CX 
レジ スタ に 格納 し て 戻り ます . トー クン が 配列 名 で な い 場 合 は , “Syntax error”" 
を 出力 し て イン タプ リタ に 制御 を 移し ます . 


※※ (WxWy) また は “STEP(Wx,Wy) ” の 評価 ** 


| 絶対 番地 | E800H:36C5H 

| 入力 条件 | DS 一 0060H 
0060H: [6EA, BH] ーー トー クン の 先頭 アド レス 

0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン の 先頭 アド レス 
A XX 座標 (オリ ジ ナ ルス クリ ー ン 座標 へ 変換 後 ) 
B YY 座標 (オリ ジ ナ ルス クリ ー ン 座標 へ 変換 後 ) 
0060H: [14FE, FH] 一 X 座 標 ( 同 変換 後 ) 
0060H: [I500, |H] ーY 座 標 ( 同 変換 後 ) 
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0060H: [|I588 て BHl] 一 Wx の 評価 値 
0060H: [158C て FH] 一 Wy の 評価 値 
Syntax error (トー クン が 「“(Wx,Wy) また は “STEP(Wx,Wy)“ 
の 形式 に な っ て いな い 場 合 ) 
Over flow (Wx,Wy) を オリ ジ ナ ルス クリ ー ン 座標 へ 変換 後 , 値 が 
2 バイ ト 整 数 の 範囲 を 超え た 場合 ) 
破  「 寺 | AXK、 BK の も XX。 DX% 民 SW よ b も 1: BE お J お を $ 
解説 
テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら “(Wx,Wy)" また は 
“STEP(Wx,Wy) "の 形式 の トー クン の 評価 を 行ない , それ ぞ れ ワー ルド 座標 か ら 
オリ ジ ナ ルス クリ ー ン 座標 へ 変換 し , XX 座標 を AX, Y 座 標 を BX レ ジス タ に そ 
れ ぞ れ 格 納 し て 戻り ます . また この 値 で LP を 更新 し ます . スク リー ン LP に は 
変換 後 の 値 も, ワー ルド L P に は , 変換 前 の 値 が 格納 され ます . この 形式 に な っ 
て いな い 場 合 は , “Syntax error” を 出力 し て イン タプ リタ に 制御 を 移し ます . 


※ ネ ネ 整 数 化 ま ネネ 


絶対 番地 | E800H:3774H 

入力 条件 | DSー0060H 
FACC | を 数値 
BCVAL 数 値 の 型 

出力 条件 | A X 整 数 化 さ れ た 数 値 

本 6 本 | 4 ルー BMN6DX。、31, DI 


測 
に に 


FACC 1 に ある 数 値 を 整数 化し , AX レジ スタ に その 値 を 入れ て 戻り ます . 


ホネ ホネ FACCI つ FACCZ※※※ ポ 


絶対 番地 | E800H:377BH お よび E800H:493EH 
入力 条件 | DSー0060H 

FACC | て 実数 

出力 条件 | FACC2 て 同じ 実数 

破 壊 | AX 
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解説 
FACC1 ([14 1A 一 DH]) に ある 実数 を FACC.2 ([1 4 2 4~7]) 
へ 転送 し ます . 


※ ま ※ ネ [BXC 十 3] つ FACC|1 ネ ネネ 


| 絶対 番地 | E800H:3788H お よび E800H:491AH 
| 入力 条件 | Ds-0060H 

B X で 実数 の 先頭 アド レス 

[ B X て 3] 実数 
FACCI で 同じ 実数 


BCVAL<4 


[破壊 | AX 


[BXー 二 3 ] に ある 実数 を FACC1 ([ 1 4 1A-DH]) へ 転送 し ます . 
※ ネ ※ ネ [BXC 十 3] 上 FACC2 ネ ネネ 


絶対 番地 | E800H:3795H 
入力 条件 | DSー0060H 


B X で 実数 の 先頭 アド レス 
DS : [BX< て + 3] 実数 
F ACC 2 て 同じ 実数 
BCVAL<4 
破 壊 | AX 


[ BX メ ー 十 3 ] に ある 実数 を FACC2 ([1 4 2 4 一 7H]) へ 転送 し ます . 


※※※FACCI つ |[BX て 十 3] ※※※* 


絶対 番地 | E800H:37A6H お よび E800H:494EH 


入力 条件 | DS 一 0060H 
FACC| て 実数 
B X 転 送 先 の 先頭 アド レス 





出力 条件 | DS : [BX<+ 3] 同じ 実数 


FACC1 ([14 1A-DH]) に ある 実数 を [BX メ ー オ 3] へ 転送 し ます . 
*※※ 文 字 列 型 FACC1 か ら 文 字 列 の アド レス を 得る * ネ * 


E800H:37B2ZH 

| 入力 条件 | DS-0060H 
FACCI で 文字 列 

A X て 文字 列 の オフ セッ ト ア ドレ ス 
B X で 文字 列 の セグ メン ト ア ドレ ス 
CL 上 で 文字 列 の 長 さ 

ASBIG Xi Dd と そ で 才 


FACC1 ([1 4 1A 一 DH]) に ある 文字 列 (具体 的 に は 文字 列 の スト リン 
グ デ ィ ス クリ プ タ の アド レス ) か ら 。 文字 列 の オフ セッ ト ア ドレ ス , セグ メン ト 
アド レス , 長 さ を 求め 、 それ ぞ れ , AX, BX, C 上 に 格納 し て も どり ます . 


※※※ ネ 文末 チェ ッ ク ネ ※※ ネ ※* ネ 
絶対 番地 E806H:37C9H 
入力 条件 DS<-0060H 


0060H: [6EA, BH] トー クン の 先頭 アド レス 


エラ ー| Syntaxerror (文末 で な い 場 合 ) 
破 壊 人 


テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , そこ 


が 文末 (具体 的 に は 0 また は “ : ") な ら , その まま 呼び 出し 元 へ 戻り 。 それ 以外 
の 場合 は , “Syntax error” を 出力 し て イン タプ リタ に 制御 を 移し ます . 
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※ ネ ネネ LP の 初期 化 ま ネネ 


| 絶対 番地 | E800H:37D2H 

| 入力 条件 | psS-0060H 

0060H: [14FE, FH] スク リー ン LP の 初期 値 X 
0060H: [1500, |H] 一 スク リー ン LP の 初期 値 Y 
0060H: [|1588 て BH] ワー ルド LP の 初期 値 X 
0060H: [158CC て FH] ワー ルド LP の 初期 値 Y 


AX, BX 


スク リー ン お よび ワー ルド LP の 格納 領域 に 初期 値 を 代入 し ます . スク リー ン 
LP の 初期 値 は 。 ビュ ー ポ ー ト の 左上 角 の オリ ジ ナ ルス クリ ー ン 座標 (VIEW 
で 設定 し た 値 ) と な り ま す . ワー ルド LP の 初期 値 は , W I NDOW 文 実行 後 か 
耕 か で 変わ り , WINDOW 文 実行 済 フ ラグ (1 4EDH) を 調べ , 0 ( 未 実行 ) 
な ら (0, 0) が , 0 以外 (実行 済 ) な ら . ビュ ー ポ ー ト の 左上 角 の ワー ルド 座 
標 (WINDOW で 設定 し た 値 ) と な り ま す . 


ネ 来 ネエ ラー チェ エッ ク と エラ ーー 出力 ボネ 玉 


| 絶対 番地 | E800H:3810H 
| 入力 条件 | DS-0060H 
AH エラ ー 番 号 
な し 
各 エ ラー (AH が 0 以外 の 場合 ) 
な し 


レジ スタ AH の 内 容 が 0 以外 の 場合 は その 値 に 対応 する エラ ー を 出力 し て イン 
タプ リタ に 制御 を 移し ます . 


1 
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※ ネ ネネ ワー ルド ・ ス クリ ー ン 変換 比 を 求め る ネ * ネ ※ ネ 


絶対 番地 | E800H:381AH 
入力 条件 | DS-0060 


0060H: 
0060H: 
0060H: 
0060H: 
0060H: 
0060H: 
_ 0060H: 


0060H: 


出力 条件 | 0060H: 


0060H: 


AX, BX. 


[解説 


ワー ルド 座標 上 の ビュ ー 


[6 2 


[6 3 


[6 3 


[6 3 


[14 


[4 


[1 4 


[1 4 


[1 も 
ト T・39 
C X, 


E, FH] ビュ ー ポ ー ト の 左上 X 座標 
ォ オリ ジ ナ ルス クリ ー ン 上 GSX 1) 
0, 1H] ビュ ー ポ ー ト の 左上 Y 座 標 
オォ オリジナル スク リー ン 上 (Sy1|) 
2, 3H] ビュ ー ポ ー ト の 右 下 X 座標 
ォ オリジナル スク リー ン よ 下 (Sx2) 
4, 5H] ビュー ポー ト の 右 下 Y 座 標 
オリ ジ ナ ルス クリ ー ン 上 (Sy2) 
EE ン F 1H] ーー ビュー ポー ト の 左上 X 座標 
ワー ルド 座標 上 (WxIl) 
F 2 ン F 5H] ビュー ポー ト の 左上 Y 座標 
ワー ルド 座標 上 (WyI) 
F6 ン F 9H] ビュ ー ポ ー ト の 右 下 X 座標 
ワー ルド 座標 上 (Wx2) 
FAC ン FDH] ビュ ー ポ ー ト の 右 下 Y 座 標 
ワー ルド 座標 上 (Wy2) 
0 2 て 5H] < (Wx2 一 Wx1)/(Sx2 一 Sxl) 
0 6 て 9H] - (Wy2 一 WyI) プ (Sy2 一 SyI) 
DX に き 1- 1 か を 人 


ボ ポート の 大 き さ と スク リー ン 座 標 上 で の 大 きき さと の 比 


を 求め て 格納 領域 に 格納 し ます . 結果 は 実数 型 と な り ま す . 
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※ ネ ネネ “@" の 読み と ば し と “( の チェ ッ ク ※※ ネ キネ ※ 


絶対 番地 | E800H:3907H 

入力 条件 | DSー0060H 

0060H: [6EA, BH] トー クン の 先頭 アド レス 

出力 条件 | 0060H: [6E8, 9H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン の 先頭 アド レス 
CF で 0 (トー クン が “(” の 場合 ) 
CF| (それ 以外 の 場合 ) 

凍っ 3 才 し AX 意 ポ ょ な WNWk DX。 S 1。 8P。 ES 

解説 

テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 

クン が “@" な ら 湊 の トー クン に 進み , それ が “(" で ある な ら キ ャ リー フラ グ を 

リア し 。"(′ 叶い な ら キ ャ リー フラ グ を セッ ト し で , 戻り ます 。. 


NN 


※ ネ ネ @⑨ の 読み と ば し ※※ ネ キネ 


| 絶対 番地 | E800H:3928H 
| 入力 条件 | DSー0060H 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
0060H: [6E8, 9 H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 次 の トー クン の 先頭 アド レス 
人事 。 せ ル 。 馬 人 0。 まま サ 』 、 きど 。 まま 


テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “@" な ら 次 の トー クン に 進み ます . 


まま 補 -- 0 の の デア エッ クキ 


絶対 番地 | E800H:3935H 

入力 条件 | DSー0060H 

0060H: [6EA, BH] ーー トー クン の 先頭 アド レス 

出力 条件 | 0060H: [6E8, 9H] ーー トークン の 先頭 アド レス 
0060H: [6EA, BH] - 次 の トー クン の 先頭 アド レス 


1 


00 





CF で 0 (トー クン が ", "の 場合 ) 
CF| (それ 以外 の 場合 ) 
枝 本 1| AX。 まな 電 DWS は F、FB は PCES 


テキ スト ポイ ンタ (6EA, BH) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “。" で ある な ら ,。 キャ リー フラ グ を クリ ア し , それ 以外 の 場合 は 。 キャ リ 
ー フ ラグ を セッ ト 戻り ます . 


※ ネ ネト L |0 コ ー ル の 準備 *※*※* 


E800H:393BH 
| 入力 条件 | SS-0060H 
ES-0060H 
BX-150AH 
[破壊 | な し 


LTIO コ ー ル の た め , ES レジ スタ に 6 0 是 を , BX レ ジス タ に 150AH(L 
IO へ の 引数 の 先頭 アド レス ) を 格納 し て 戻り ます . 


*※ ネ ※ ネ ビュ ー ポ ボー ト 内 か どう か の チェ ッ ク *※※ ネ キネ 


| 絶対 番地 | E800H:3941H 
DS-0060H 
A XX 座標 (オリ ジ ナ ルス クリ ー ン ) 
B XY 座標 (オリ ジ ナ ルス クリ ー ン ) 
な し 
な し 
Illegal function call (x, y が ピュ ー ポ ボート 外 の 場合 ) 


AX。 BX に 与え られ た 双 , Y 座 標 が ピュ ー ポ ー ト 内 か どう か チェ ッ ク し , 範 


囲 内 な ら , その まま 呼び 出し 元 へ 戻り ., それ 以外 の 場合 は , “Illegal function call" 
を 出力 し て イン タプ リタ に 制御 を 移し ます . 
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※ ま ネネ AX つつ FACCI お よび “") の チェ ッ ク ※※ ネ ※ 


| 絶対 番地 | E800H:4759H 
| 入力 条件 | DS-0060H 
0060H: [6EA, BH] トー クン の 先頭 アド レス 
A X で 整数 
出力 条件 
0060H: [6E8, 9 H] トー クン の 先頭 アド レス 
0060H: [6EA, BH] 次 の トー クン の 先頭 アド レス 
FACC|<- 同 整数 
BCVAL2 
ェ エラー| Syntax error (トー クン が ("で な い 場 合 ) 
「 
解説 
AX レジ スタ に ある 整数 を FACC 1 へ 格納 し た 後 , テキ スト ポイ ンタ (6E 
A。 BH) の 指す アド レス か ら 語 名 解析 を 施し , トー クン が “) "で ある な ら , そ 
の まま 呼び 出し 元 へ 戻り それ 以外 の 場合 は , “Syntax error" を 出力 し て イン タ 
プリ タ に 制御 を 移し ます . 


※ ネ ネネ "(数式 の 評価 * ネ ※* 


絶対 番地 E800H:4B8CH 

入力 条件 DS-0060H 

0060H: [6EA, BH] ーー トー クン の 先頭 アド レス 

出力 条件 | 0060H: [6E8, 9H] ーー トー クン の 先頭 アド レス 
0060H: [6EA, BH] 一 次 の トー クン の 先頭 アド レス 

FACCI 整 数 (数 式 の 評価 値 ) 

エラー| Syntax error (先頭 トー クン が “( で な い 場 合 ) 

破 壊 馬 大 。 失 拓 。 統 誠二 導 。 か 。 1。 生 ど だ 。 も る 

解説 「 
テキ スト ポイ ンタ (6EA, B 是 ) の 指す アド レス か ら 語 名 解析 を 施し , トー 
クン が “(" で な い 場 合 は “Syntax error” を 出力 し て イン タプ リタ に 制御 を 移し 
ます .”( で ある 場合 は 次 の 数 式 を 評価 し , 整数 化し た 後 , 値 を AX レジ スタ に 

入れ て 戻り ます . 


HH 上 剛 


ト う 
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人 得 5 は AS | し ヴー クエ リア 
ここ で は グラ フィ ッ ク に 関連 の ある ワー クエ リア を まとめ て 掲げ て お きま す . 


(セグ メン ト 6 0 H) 


4 ED WINDOW 実 行 済 フラ グ (0 : 未 実行 , 1 : 実行 済 ) 
4EE-1 4F1 | ウィ ンド ウ の 左上 の XX 座標 (実数 ) 
4F2-14F5 | ウィ ンド ウ の 左上 の Y 座 標 (実数 ) 
4F6-14F9 | ウィ ンド ウ の 右 下 の 双 座 標 (実数 ) 
4FA-1 4FD | ウィ ンド ウ の 右 下 の Y 座 標 (実数 ) 


4FE-1 4FF | スク リー ン 座 標 系 の LP XX 座標 (整数 ) 
500-150 1 | スク リー ン 座 標 系 の LP YY 座標 (整数 ) 
502-150 5 | ワー ルド ・ ス クリ ー ン 変換 比 X 方 向 (実数 ) 
506-150 9 | ワー ルド ・ ス クリ ー ン 変換 比 Y 方 向 (実数 ) 
1 5 0A- L 1 O へ の 引数 エリ ア 

1588-158B | ワー ルド 座標 系 の LP XX 座 標 (実数 ) 
158C-158F | ワー ルド 座標 系 の LP Y 座 標 (実数 ) 
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5 0 Naa8 二 BASIC グ ラフ ィ ッ ク 拡 張 コ マン ド 


第 1 章 で 説明 し た よう に ,。 PC9800 シ リー ズ は , GDC と いう グラ フィ ッ ク 
捕 画 機能 を も っ た LSTI を 搭載 し て いま す が , N8s8- B A S I C は , その 機能 を 最 
大 限 に 利用 し て いる と は 言え ませ ん . 実際 , Nss- B A S IC が 使用 し て いる GD 
C の 描画 機能 は , L I NE コマ ンド に お ける 直線 の 描画 だ け で す . GDC の 持つ 
円 の 描画 , グラ フィ ッ ク 文 字 の 描画 , 四辺 形 の 描画 機能 な ど が まっ た く 使 われ て い 
な い の は 残念 で す . そこ で , ここ で は GDC の 機能 を 生か し て , 既存 の BASI 
C コ マン ド を 拡張 し た 例 を 紹介 し ます . 


5。> り 9。 | , 二 層 6 1 RGLE 


〇 概要 

GDC の 円 の 描画 機能 を 利用 する も の で す . Nss-BAS IC の CIRCLE コ 
マン ド は , プロ グラ ム で ドッ ト の 位置 を 計算 し , PRET で 一 つ ず つ 点 を 打っ て 
いま す . 円 の 対称 性 を 利用 し て 一 度 の 計算 で 4 点 ず つ 打 っ て いま す が , それ で も , 
GDC の 1 ドッ ト 700 一 8 0 0 nsec の スピ ー ド に 比べ た ら 歯 が た ち ま せ ん . し 
か し GDC に も 欠点 は あり ます 。 例え ば , 


@400 本 モー ド で の 正 円 し か 描け な い . つま り 恒 円 を 描く こと が で き な い . ま 
た , 200 本 モー ド で は 正 円 も 描く こと が で き な い . ( 正 円 と は XX 軸 方 向 の 半 
径 と Y 軸 方 向 の 半径 が 等 し い 円 の こと 情 円 ) 

@ 円 弧 を 描く 場合 、GDC へ 与え る パラ メー タ の 計算 が 面倒 、 ま た , ビュ ー 
ボート を 設定 し て 円 の 一 部 が ビュ ー ボ ポー ト 外 と な る 場合 も 同様 に 円 弧 と な 
る の で 面倒 . 

@ 深 りつ ぶし が 同時 に で き な い . 後 か ら PA INTT で 塗り つぶ す と か えっ て 
時 間 が か か る . 


な ど で す . つま り Nss-BASIC の CIRCLE コ マン ド を GDC だ け で は 実現 
で き な い こと . これ が GDC が 使わ れ な か っ た 理由 で は な いか と 思い ます . し か 
し , 族 に 言え ば 条件 さえ 満た な せ ば GDC を 利用 で きる わけ で , その メリ ッ ト は 大 
きい と いえ ます . 


〇 仕様 
本 プロ グラ ム は , Nss- BA SIC の C IRCLE コ マン ド と 完全 な 互換 性 を 実現 
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し まし た . 以下 の 条件 を 満た し た と き に , C I RC LE コマ ンド は 5-30 倍 速く な り ま す . 
満た さ な い と き の ス ピー ド は ほとん ど 変 わり ませ ん . SCREEN コ マン ド で 
高速 描画 を 指定 すれ ば さら に 速 く な り ま す . 


4 0 0 本 モー ド で ある こと . つま り , SCREEN 2 また は 3 の と き . 
開始 角度 , 終了 角度 の 指定 が な いこ と . 

浅 り つぶ し (F) の 指定 が な いこ と . 

円 は ビュ ー ポ ボー ト の 範囲 内 に お さま る こと . 

比率 の 指定 の な いこ と . 


969@@@ ら 6 


〇 使用 方 法 

本 プロ グラ ム は 機械 語 で で き て いま す . ダン プリ スト また は , ソー スリ スト を 
モニ タ で 打ち 込ん で ,。 BSAVE で フロ ッ ピ ディ スク に セー プ し て お きま す . 本 
プロ グラ ム を 使用 する と き は , CLEAR 文 , DEF SEG 文 で 機械 語 領域 を 
定義 し て か ら , BLOAD* 本 プロ グラ ム の 名 前 ?。R と し て くだ さい . これ 以後 
に 現われ る BASTIC の CIRCLE コ マン ド は 高速 に 実行 され ます . CLEA 
R 文 , DEF SEG 文 , BLOAD 文 は 。 プ ログ ラム 中 で も , ダイ レク トモ ー 
ド で も どちら で も OK です . BLOAD 実 行 後 は 。 DEF SEG 文 で 定義 を 変 
更 し て も か まい ませ ん . 


《 例 > CLEAR,&&H1FOO 
DEF SEG= 鐘 H1F0O0O 
83 しり DU 6 1 YC 】 お も 4 も 4 お. 全 
人 本 プロ グラ ム に つけ た 名 前 


CIK も も も 86 サ ご 290) は すり 


〇 プロ グラ ム の 説明 

本 プロ グラ ム は , 2 つの プロ グラ ム か ら な っ て いま す . 1 つ は 高速 に C I RC 
LE を 実行 する 本 体 で 、。 もう 1 つ は , この プロ グラ ム を BASIC の CIRCL 
E ル ー チ ン と 置き 換え る プロ グラム で す 。 BLOAD *c ircle. b 和 きき *。 
R を 実行 する と この 置き 換え プロ グラ ム が 走る の で す . 
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< 置き 換え の アル ゴリ ズム > 

本 プロ グラ ム の よう に , 既存 の コマ ンド と 文法 を 全く 変更 せ ず に 拡張 する 場合 
は , L IO を 置き 換え る と いう 方 法 が 使え ます . 今 ま で 説明 し て きた よう に , B 
AS IC コ マン ド の 多く は , LTIO と いう 下請 け の ルー チン を それ ぞ れ 持っ て お 
り ,。 BAS IC コ マン ド の 処理 ルー チン で は 文法 の 解析 を 行っ て , 上 1 O へ の パ 
ラメ ー タ を 作成 し , 実際 の 描画 は 上 IO が 受け 持つ と いう わけ で す . L IO は, 
ソフ トウ ェ ア ・ イ ンタ ラプ ト 命 令 (I NT) で 呼び 出し て いま すか ら , イン タラ 
プ ト ベ クタ テー プ ブル (INT n 命 令 の 各々 に 対応 する ジャ ンプ 先 ア ドレ ス の 書 
か れ て いる 表 ) を 書き か えて や れ ば いい の で す . 

本 プロ グラ ム で は , L IO ルー チン GCIRCLE の INT AB8 是 に 対応 す 
る ベク タテ ー ブ ル (0000:2A0-2A3H) に 高速 C と IRCLE ル ー チ ン 
の 先頭 アド レス を 書き 込み ます . 


(高速 CIRCLE アル ゴリ ズム > 

本 プロ グラ ム は L IO の 置き 換え で すか ら , 引数 の 受け 渡し は L IO に 従い ま 
す . 実際 の 描画 は B IOS の 円 弧 描 画 ル ー チ ン を 呼び 出し て 行い ます が , その ま 
え に , 先 の 条件 を 満た し て いる か の チェ ッ ク を 行い , 満た し て いな い 場 合 は , 元 
の LIO GCIRCLE に 制御 を 移し て いま す . 


① 先 に 挙げ ば た GDC で で きる 条件 の チェ ッ ク を する . 

② 条件 を 満た さ な い 場合 は ,  LIO GCIRCLE に 制御 を 移す . 

③ BIOS の 円 弧 描 画 を コー ル す る . この ルー チン は , 一 度 に は , 8 分 の 1 
の 円 弧 し か 描け な い の で , 描画 方 向 , 描画 開始 点 を 変え て 8 回 コー ル す る . 


〇 比較 

どれ だ け ス ピー ド の 向上 が 得 ら れる か を 計る た め , 次 の よう な BASTIC プ ブロ 
グラ ム を オリ ジ ナ ル の 状態 と 本 プロ グラ ム を 動作 させ て か ら と を 比較 し まし た . 
この プロ グラ ム は , 大 中 小 の 円 を それぞれ 画面 に 5 0 0 個 描き , それ ぞ れ の 描画 
時 間 を 計る も の で す 。 結果 は 右 の よう に 大 円 で 4 0 倍 , 小 円 で も 5 倍速 く な っ て 
いま す . 円 が 大 きい ほど 差 が 著しく な っ て いま す が , これ は 小 円 で は , 円 の 描画 
に か か る 時 間 が 他 の 処理 の 時 間 に 比 べ て 少な いた め 全 体 の 時 間 に す る と 差 が 小さ 
く 見 える た めで し ょ う . 純粋 に 円 の 描画 時 間 だ け を 計れ ば 5 0 倍 以 上 と 思わ れ ま 
す . 中 円 の と き の 画 面 の 例 を 次 に 示し ます . 
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〇 結末 
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⑨⑳ ソ ー ス リス 


: HIGH SPEED GCIRCLE SUBROUTINE 


USING GDC 
02A0 INTA8 EQU 2A0H :VECTOR TABLE ADRS A8H 
0100 INT40 EQU 100H :VECTOR TABLE ADRS 40H 
062E VIEWX1 EQU 62EH :VIEWPORT X1 
0630 VIEWY1 EQU 630H :VIEWPORT Y1 
0632 VIEWX2 EQU 632H :VIEWPORT X2 
0634 VIEWY2 EQU 634H :VIEWPORT Y2 
0620 SCRMOD EQU 620H : SCREEN MODE 
0623 FORCLR EQU 623H :FORE-GROUND COLOR 
: SET INTERUPT VECTOR TABLE 
: TRANSFER CONTENTS OF INTA8 TO INT40 
: SET ADDRESS OF 'START' INTO INTA8 
0000 33C0O INIT:  XOR AX。AX 
0002 8ED8 MOV DS,AX 
0004 A1A002 MOV AX,.INTA8 
0007 A30001 MOV .INT40.AX 
000A A1A202 MOV AX,.INTA8+2 
000D A30201 MOV .INT40+2,AX 
0010 C706A0021F00 MOV WORD PTR .INTA8,OFFSET START 
0016 OE PUSH CS 
0017 58 POP AX 
0018 A3A202 MOV .INTA8+2,AX 
001B CF IRET 
: IN CASE THIS PROGRAM IS NOT SUITABLE, 
: CALL ORIGINAL GCIRCLE ROUTINE 
001C CD40 TOROM: INT 40H 
001E CF IRET 


HIGH SPEED GCIRCLE MAIN 
CHECK RESTRICTIONS 


て の ーー ッ ーー・ 


001F 807F0900 TART: CMP BYTE PTR 9LBX],0 iONLY CIRCLE? 
0023 75F7 001C JNE TOROM i NO 
0025 8B5704 MOV DX,4[BX] iRX=RY? 
0028 395706 CMP 6LBX] .DX i 
002B 75EF 001C JNE TOROM i NO 
002D BF4006 MOV DI ,640H 
0030 8B07 MOV AX,[BX] iGET X 
0032 2BC2 SUB AX,DX ?X-R 
0034 894508 MOV 8L[DI],AX iSTORE X-R 
0037 3B062E06 CMP_ AX, .VIEWX1 :X-R>=VIEWX17 
003B 7CDF 001C JL TOROM iNO 
003D 03C2 ADD AX,DX 
003F 03C2 ADD AX,DX 
0041 3BO63206 CMP_ AX, .VIEWX2 *X+R く =VIEWX27 
0045 7FD5 001C JG TOROM i NO 
0047 8B4702 MOV AX,2[BX] iGET Y 
004A 89450A MOV 0AHEDI],AX iSTORE Y 
004D 2BC2 SUB AX,DX 
004F 3BO63006 CMP AX,.VIEWY1 iY-X>=VIEWY17 
0053 7CC7 001C り L TOROM i NO 
0055 03C2 ADD AX,DX 
0057 03C2 ADD AX,DX 
0059 3BO63406 CMP AX, .VIEWY2 1Y+X く =VIEWY27 
005D 7FBD 001C JG TOROM iNO- 
005F Al2006 MOV AX, . SCRMOD 
0062 3C02 CMP AL,2 
0064 B403 MOV AH,3 
0066 7CB4 001C JL TOROM 
PREPARE PARAMETERS FOR BIOS CALL 
0068 B104 MOV CL,4 
006A D2E4 SHL AH,CL 
006C 8AEC MOV CH.,AH 
006E C7451A0000 MOV WORD PTR 1AH[DI].0 :MASKING DOTS 
0073 89551C MOV 1CHLDI],DX iSTORE RADIUS 


8A4708 
0080 


C6450303 
C74520FFFF 
C6452804 


80470305 
80670307 
B448 
CD18 
80470305 
80670307 
015708 
80F903 
7502 
F7DA 
01570A 
FEC9 
75D7 
32E4 

CF 


00BD 


009B 


を ま ッ プ スト 


0000 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
00A0 
00B0 
00C0 
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NOTFF: 


LOOP: 


NOT3: 


MOV AL,8[BX] iGET COLOR 

CMP AL,0OFFH 

JNE NOTFF 

MOV AL 、..FORCLR 

MOV [DI ] AL iSTORE COLOR 

MOV BYTE PTR 3LDI],3 iSTORE DIRECTION 

MOV WORD PTR 20HLDI ] .0FFFFH iLINE STYLE 

MOV BYTE PTR 28HLDI],.4 iCIRCLE ID 

PUSH DX 

MOV AX,.0B505H i=1/SQR( 2 ) x2^16 

MUL DX iMEANS R/SQR( 2 ) 

MOV 0CHEDI ] ,DX iSTORE TOTAL DOTS 

POP DX 

MOV BX,DI 

MOV AH, 48H iBIOS CALL 

INT 18H iCIRCLE 

ADD BYTE PTR 3LBX],5 iROTATE DIRECTION 

AND BYTE PTR 3LBX],7 

MOV AH,48H iBIOS CALL 

INT 18H iCIRCLE 

ADD BYTE PTR 3LBX] , 5 iROTATE DIRECTION 

AND BYTE PTR 3[BX],7 

ADD 8[BX] ,DX iADJUST DRAWING POINT 

CMP CL,3 

JNE NOT3 

NEG DX 

ADD 0AHBX] , DX iADJUST DRAWING POINT 

DEC CL 

JNE LOOP 

XOR AH,AH 

IRET 

END 
00 01 Al A2 02 A3 02 01 39 生 9。 。 。" 4 
A3 A2 02 CF CD 40 CFP 80 | 條 X」「 マ へ @ マ ー 
39 57 06 75 EF BF 40 06 U 科 W 9W いり @ 
06 2E 06 7C DF 03 C2 03 2 析 坦 MS し 。 
47 02 89 45 0A 2B C2 3B ツ 1 2 20G IE + ツ : 
C2 3B 06 34 06 7F BD Al 生生 清 : を え 。 
B1 04 D2 E4 8A EC C7 45 く エ | エア メ 放 9 ヌ E 
08 3CFF 75 03 AO 23 06 1IUIG く < く u 揚 
20 FF FF C6 45 28 04 52 に さ 生 肝 時 3 導 た 登 
5A 8B DF B4 48 CD 18 80 ク 村 旨 U 2Z 有 * エ HAN _ 
48 CD 18 80 47 03 05 80 夫 2 
03 75 02F7 DA 01 57 0A 9 WMW- u 物 し W 

ノ u ラ 2.4 マ 


5 2 撤 大 FUT ( 潮 字 ) 


〇 概要 

GDC の 拡大 文字 描画 機能 を 利用 する も の で す . GDC に は Z00M コ マン ド 
が あっ て 拡大 描画 係数 を 設定 する こと に よっ て 1 一 1 6 倍 の グラ フィ ッ ク 文 字 の 
拡大 描画 が 可能 で す . この 機能 を 生か し て , 簡単 に 使 を る よう に BASIC コ マ 
ンド に 組み 込む 方 法 は な いか と 考え た の が この プロ グラ ム で , PUT 丁 文 (漢字 ) 
に , 拡大 機能 を 追加 し よう と いう も の で す . 画面 に 大 き な 文 字 で メニ ュー を 表示 
し た いと き な ど 便利 に 使え を る で し ょ う . 


〇 仕様 
既存 の PUT 文 と 混乱 を 生 し ない よう , PUTT の 次 に \!" を つけ る も の と し ま 
す . 書式 は 次 の よう に な り ま す . 


PUT! (Sx, Sy), KANTJI( く コード >), < 拡大 係数 >,。 < マレット 番号 > 


《 拡 大 係数 > は 1 一 1 6 の 値 を も つ 数 式 で , 省略 時 は 1 と な り ま す . 


〇 使用 方 法 
本 プロ グラ ム は 機械 語 で で き て いま す . ダン プリ スト また は , ソー スリ スト を 
モニ タ で 打ち 込ん で , BSAVE で フロ ッ ピ ディ スク に セー プ ブ し て お きま す . 本 
プロ グラ ム を 使用 する と き は , CLEAR 文 , DEF SEG 文 で 機械 語 領域 を 
定義 し て か ら , BLOAD` 本 プロ グラ ム の 名 前 ?/。 R と し て くだ さい . これ 以後 
P 計 | 文 が 使え ん る よ け 総 な すり ま CO も 民家 、DEF SEG 文 、 BLO 
AD 文 は 。 プロ グラ ム 中 で も , ダイ レク トモ ー ド で も どちら で も OK で す BL 
OAD 実行 後 は DEF SEG 文 で 定義 を 変更 し て も か まい ませ ん . 高速 CI 
RCLE と いっ し ょ に 使う と き は , DEFE SEG の 値 を 調整 し て 2 つの プロ グ 
ラム が 重 な ら な いよ うに し て くだ さい . 
《 例 > CLEAR,&H1E00O 
DEF SEG=&H1E00 
BLOADNOC1 rcHie も jn*、R 
本 プロ グラ ム に つけ た 名 前 


POT! 1100,.100).KANJI (&H3 1 31).5 
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〇 プロ グラ ム 説 明 

本 プロ グラ ム は ) 高速 CT 昌 CLE と 異な り , BASTIC イ ンタ プリ タ 部 一 一 
PUT ! 文 処理 部 を 新しく つけ 加え て いま す . BAS IC の 新しい コマ ンド を 作 
ろう と する と き に は , 拉 張 命令 処理 の エン トリ アド レス お よび 拡張 命令 フラ グ を 
所 定 の エリ ア に セッ ト す る こと で 実現 で きま す . 本 プロ グラ ム は , 2 つの ブログ 
ラム か ら 成 り , 1 つ は , この 拡張 命令 処理 アド レス 等 を セッ ト す る プロ グラ ム で , 
も う 一 つ は , 拡張 命令 の 解 和 収 お よび 実行 部 で す . BLOAD “exput. bin", R を 
実行 する こと に より , 前 者 の プロ グラ ム が 走り 拡張 命令 が 使え を る よう に な る わけ 
りす 


<Nss-BAS1IC の 拡張 命令 機能 > 

BASIC イ ンタ プリ タ は , すべ て の コマ ンド の 解釈 に 先立ち , 拡張 命令 フラ 
グ (0060H:1593H) が 0 以外 の 場合 (0060H:159C-9DH) 
で 指 さ れ る アド レス に 制御 を 移し ます . 拡張 命令 処理 プロ グラ ム (ユー ザ 作 成 ) 
は , そこ で , コマ ンド の 解釈 を 行ない 拡張 命令 か どう か を 調べ ます . も し , 拡張 
命令 な ら , 続い て その コマ ンド の 実行 を 行ない ,。 キャ リー フラ グ を セッ ト し て リ 
ター ン し ます . も し 拡張 命令 で な いな ら , その まま キャ リー フラ グ を クリ ア し て 
リタ ー ン し ます . キャ リー フラ グ が クリ ア な ら , イン タプ リタ は コマ ンド の 解 秋 
を 開始 する の で す . 


< アル ゴリ ズム > 
本 ルー チン の 処理 は 次 の よう に な り ま す . 


①PUT コ マン ド か どう か を 調べ る . そう で な いな ら ば リタ ー ン . 

② 次 の トー クン が ~!” か どう か を 調べ ,。 そう で な いな ら ば リタ ー ン 。. 

③ コ マン ド の 解釈 を 行なっ て , 座標 , コー ド , 拡大 係数 。 パ レット 番号 を 得る . 

〈④GDC の Z00M コ マン ド で 拡大 係数 を セッ ト す る . 

⑤⑥BIOS (AH 一 0 0H, INT 18H) で コー ド の フォ ント パタ ー ン を 
待 る . 「 

⑥BIOS グラ フィ ッ ク 文 字 の 描画 を 用 いて 描画 する . た だ し , 一 度 に は , 
8 X 8 の パタ ー ン し か 描画 で き な い の で 漢字 の 場合 は , 4 回, 半角 は 2 回 , 
4 分 の 1 角 は 1 回 , 座標 を 変え な が ら 描 画 を 行う . 
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〇 サン プル 


280 
290 


* 拡 大 PUT デ モン スト レー ショ ン 
CLEAR ,&HIE00 

DEF SEG=&HI1E00 
BLOAD"exput.bin",R 


SCREEN 3,1 

A$= "秀和 シス テム " 

Z00M=5:X=10:Y=10 

GOSUB xEXPUT 

A$=" ト レー ディ ング 株 式 会 社 " 

Z00M=3:X=30:Y=130 

GOSUB xEXPUT 

END 

XEXPUT 

FOR 1=3 TO LEN(A$)-2 STEP 2 
CODE=ASC(MID$(A$,] ) ) x256+ASC(MID$(A$,T+1 ) ) 
PUT! (X,Y) ,KANJI (CODE ) , Z00M, 6 
X=X+16xZ00M 

NEXT ! 

RETURN 


〇 実行 結果 


秀和 シス テム 


トレ ー デ ィング 株 式 会 社 


〇 ソー スリ スト 
EXPAND PUT KANJI SUBROUTINE 
0620 SCRMOD EQU WORD PTR .620H 
0623 FORCLR EQU BYTE PTR .623H 
062E VIEWX1 EQU MORD PTR .62EH 
0630 VIEWY1 EQU WORD PTR .630H 
0640 PRMTBL EQU 640H 
0640 COLOR EQU BYTE PTR .PRMTBL+0O 
0643 DIREC EQU BYTE PTR .PRMTBL+3 
0648 XADRS EQU VORD PTR .PRMTBL+8 
064A YADRS EQU MORD PTR .PRMTBL+0AH 
064C DOTS1 EQU WORD PTR .PRMTBL+OCH 
065E DOTS2 EQU MORD PTR .PRMTBL+1EH 
0660 PATN EQU PRMTBL+20H 
06EA TEXPTR EQU WORD PTR .6EAH 
104C FONT EQU104CH 
141A FACC1 EQU MORD PTR .141AH 
150A MORK EQU WORD PTR .150AH 
1593 EXCOMF EQU BYTE PTR .1593H 
159C EXCOMO EQU MORD PTR .159CH 
159E EXCOMS EQU MORD PTR .159EH 
15A0 EXFUNO EQU WORD PTR .15AOH 
15A2 EXFUNS EQU MORD PTR .15A2H 
INITIALIZE EXTENDED COMMAND TABLE 
0000 16 INIT: PUSH SS 
0001 1F POP DS 


0002 B83B00 
0005 A39C15 
0008 B83F00 
000B A3A015 


MOV AX,OFFSET START 


MOV EXCOMO , AX 


MOV AX,OFFSET RETFAD 


MOV EXFUNO, AX 
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216 


A3A215 


C6069315FF 


CF 


BF0D00 
CDC4 
C3 


BF4A00 
CDC4 
C3 


E8F1FF 


BF0100 
CDC4 


BF0200 
CDC4 


A24006 
C7060A150000 


46 
8936EA06 


A11A14 
03062E06 
A34806 
E8BAFF 
72C1 
E8AFFF 
Al11A14 
03063006 
A34A06 
E89CFF 
3C29 
75AD 
E8A1FF 
72A8 
E890FF 
80FBAB 
75A0 


001C 
0030 


0041 


003F 


001C 


0031 
0022 


0028 
0031 
0022 


001C 


0031 
0028 
0031 
001C 


0031 


ーー ーー・ < 


ETTKN・ 


PUSH CS 
POP AX 


MOV EXCOMS , AX 
MOV EXFUNS , AX 
MOV EXCOMF , 0FFH 


IRET 


SUBROUT INES 


GET A TOKEN 


MOV DI,13 
INT 0C4H 
RET 


EVALUATE EXPRESSION 


AND CONVER TO INTEGER 


GETVAL: MOV DI.74 


ーー 


CMACHK : 


RTN: 


ゃ 
せ 


INT 0C4H 
RET 


GET A TOKEN 
AND CHECK !T 
5 II 1S 


CALL GETTKN 
CMP AL," 


・′ THEN CFP=s0 


ELSE CF=1 


H 0UTPUT SYNTAX ERROR 


STXERR: 


MOV DI ,1 
INT 0C4H 


i OUTPUT ILLEGAL FUNCTION CALL 


ILGLFN: 


1 EXPANDED PUT MAIN ROUTINE 


MOV DI,2 
INT 0C4H 


SYNTAX ANALYSIS 


RETFAD: 
PUTCOM: 


CMP AL,0C1H 
JE PUTCOM 
CLC 
R 


JNE RETFAD 


ETF 
CMP BYTE PTR 〔5I],'!" 


MOV AL,FORCLR 
MOV COLOR , AL 


MOV WORK,0 
INC SI 


MOV TEXPTR,SI 


CALL GETTKN 
CMP AL,。'(" 
JNE STXERR 
CALL GETVAL 
MOV AX.FACC 


1 


ADD AX,VIEWX1 
MOV XADRS, AX 


CALL CMACHK 
JB STXERR 
CALL GETVAL 
MOV AX,FACC 
ADD AX,VIEW 
MOV YADRS , A 
CALL GETTKN 
CMP_ AL,")" 
JNE STXERR 
CALL CMACHK 
JB STXERR 
CALL GETTKN 
CMP BL,0ABH 
JNE STXERR 


1 
Y1 
X 


iPUT INTERNAL CODE 


i YES 


iKANJI INTERNAL CODE? 





0091 
0094 
0096 
0098 
009B 
009E 
009F 
00A2 
00A4 
00A6 
00A9 
00AB 
00AE 
00B1 
00B2 
00B5 
00B7 
00BA 
00BD 
00C0 
00C2 
00C5 
00C8 
00CB 
00CD 
00D0 
00D3 
00D5 
00D7 
00D9 


00DB 


E888FF 


80FE01 
7F10 
B600 
740C 
80C629 
80FA80 
7204 
81C28000 


001C 
0031 
0022 
001C 
0031 
0028 


00D3 
0022 


00BA 
0036 


0028 
00D3 
0022 
00B7 
001C 
00DB 


00A4 


00F1 
00F1 


00F1 


00FA 


0106 


012A 
0125 


0143 


CALL GETTKN 
CMP AL,'(" 
JNE STXERR 
CALL GETVAL 
MOV AX,FACC1 
PUSH AX 
CALL GETTKN 
CMP AL,')・* 
STXER2: JNE STXERR 
CALL CMACHK 
JB ENDSTM 
CALL GETVAL 
MOV AX,FACC1 
DEC AX 
TEST AX.OFFFOH 
JE NOTILG 
ILGLF2: JMP ILGLFN 
NOTILG: MOV WORK,AX 
CALL CMACHK 
JB ENDSTM 
CALL GETVAL 
MOV AX,FACC1 
TEST AX,OFFF8H 
JNE ILGLF2 
MOV COLOR, AL 
CALL GETTKN 
ENDSTM: CMP AL,0 


JNE STXER2 
EXECUTION 
CALL BIOS FOR FONT READ 
RMEND: POP DX 
ADJUST JIS CODE 


CMP DH,1 

JG KANJI i:ZENKAKU 
MOV DH,0 

JE KANJI ji1/4KAKU 
ADD DH,29H ji HANKAKU 
CMP DL,80H 

JB KANJI 

ADD DX,80H 

KANJI: MOV BX,DS 

MOV CX,FONT 

MOV AH, 1 4H 

INT 18H 


i SET Z00M PARAMETER 


WAIT1: IN AL,0A0H 
AND AL,2 
JNE WAIT1 
MOV AL, 46H 
0UT 0A2H, AL 
AAD 

WAIT2: IN AL,0A0H 
AND AL,2 
JNE WAIT2 
MOV AX,WORK 
OUT 0A0H,AL 
MOV BP,AX 
INC BP 
MOV CL,3 
SHL BP,CL 


PREPARE PARAMETERS FOR BIOS 
GRAPHIC PUT 


MOV AX,SCRMOD 

CMP AL,2 

JL LT2 

JE EQ2 

MOV CH,0B0OH iSCRMOD=3 
JMPS NEXT 


に に まま ーー そま で まま て まさ 


ee 
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0125 
0128 


012A 
012C 
012E 
0131 
0133 
0135 


0137 
013A 
013D 


CP/M 


013F 
0141 
0143 
0147 
0149 
014C 
0151 
0155 
0157 
015A 
015D 
0160 
0162 
0166 
016A 
016C 
016D 
0170 
0172 
0174 
0176 
0178 
017A 
017C 
017E 
0182 
0185 
0187 
018B 
018D 
018E 
0191 
0193 


0197 8AC 


0199 
019B 
019D 
019E 


END OF ASSEMBLY . 
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EQ2: 
013D 


か 
0137 


80CC08 
EB13 


3C0 1 
7509 
80FC03 
720A 
FEC4 
EB06 


80C403 
80CC03 
B104 


ASM86 1、1 


013D 

013D 
EQ0: 
coM: 


D2E4 

8AEC 
8B164C10 
8ACE 
BE4006 
C606430602 
012E4A06 


NEXT : 


8A874C10 
88856006 
02DE 


0162 


012E4806 
80EBOF 
EBD9 
012E4A06 
2ADE 


LOOP1 : 
LOOP2: 


NUMBER OF ERRORS: 0. 


OR AH,08H 
JMPS COM 


CMP AL,1 
JNE EQO 
CMP AH,3 
JB COM 
INC AH 
JMPS COM 


ADD AH,3 
OR AH.3 
MOV CL,4 


SOURCE: EXPUT.A86 


AH,CL 

CH, AH 
DX , WORD PTR 
CL, DH 

SI , PRMTBL 
DIREC, 2 
YADRS , BP 
AX,AX 

DOTS1 ,AX 
DOTS2.AX 
BX , 2 

DI ,DI 
AL,FONT[BX] 
PATN[DI],AL 
BL, DH 

INC DI 

DI,8 

LOOP2 

AH, 49H 
XCHG BX,SI 

INT 18H 

XCHG BX,SI 

DEC CL 

JE SKIP1 

ADD XADRS, BP 
SUB BL,0FH 
JMPS LOOP1 

ADD YADRS,BP 


・FONT 


END 


USE FACTOR: 


iSCRMOD= 2 


iSCRMOD= 1 


iSCRMOD=0 


1% 


〇 O ダ ンプ リス ト 


0000 
0010 
0020 C4 
0030 
0040 
0050 00 00 
0060 
0070 
0080 
0090 
00A0 
00BO 14 
00C0 72 11 
00D0 
00E0 10 
00F0 00 
0100 BO 
0110 A0 
0120 
0130 
0140 
0150 02 01 
0160 33 
0170 75 F0O 
0180 
0190 02 75 


3 4 ょ と 学び > X 
ュ コ の kw 休 
ト テ ソ J へ ト テ $ 円 く ,t 
デジ へ ヘ ト ツ ペド く <_ も 
ヒ _ く !U 間 「@ ヌ 

FT 69 $ ツ 〈 く (Uu モ $ チ 
内 。 』H $ コ 『 チ 
$ ッ 。 0 」J を 。/ 
く )u>$。 エイ 全 上 オォ U 
独 <(m$ 較 。 P$ 
Z く ) 中 本 Y(${ 。 
人 る h 


邊 ロケ L エ へ 4 コ $u 
-F マ "2 4$u。 
BeE ア 氏 、。 〈 く ! t 
ォ - も _ フ を る を く uー_ 
人 
用 8 し HE@9 こ C 
お タ 。 し 。^ 滞 
3H 右 し | 画 )、 “に Gm 
UXrI 菩 * へ 圏 ^" ノ キ 
H る ま ル 上.J *※TCL 
U ).HW ま )u テ ヒ 
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5。 | 3 次 元 グ ラフ ィ ッ ク バ パッ ケー ジ 


ここ で 紹介 する 3 次 元 グ ラフ ィ ッ ク パ ッ ケ ー ジ は ,。 Nss-BASIC を 拡張 し て , 
3 次 元 命令 を つけ 加え た も の で , 3 次 元 直線 描画 命令 し INE@ 文 お よび , 3 次 
元 視線 設定 命令 V IEW@ 文 か ら 成り ます . VI EW@ 文 で は , 視点 ( 眼 の 立 置 ), 
生 目 点 (注目 し て いる 点 ) お よび , 視野 の 広 き を 号 え , L I NE@ 文 で 3 次 元 空 
間 上 の 2 点 を 与え る こと に よっ て , 3 次 元 空間 に 描か れ た 直線 の 視点 か ら 注目 点 
を 見 た 場合 の 像 を 画面 に 表示 する も の で , 3 次 元 描画 を 非常 に 簡単 に 実現 で きま 
[ ! 


〇 仕様 
次 の 3 つの ステ ー ト メン ト を Nss-B A S IC か ら 使 えま す . 


1 6 LINE @ | (Wi, Wi, Wi) | 一 (W.。。 W,。, W。。) 誤 くす 』 ト 番号 >] 


仮想 的 な 3 次 元 座標 上 で 2 点 間 に パ レッ ト 番号 で 示さ れ た 人 色 で 線 を 引き 
ます . 3 次 元 座標 系 か ら 画面 へ の 投影 は 。 V 1 EW@ で 設定 し た 視線 に 従 
いま す . 


2. VIEW @[(W。,。 WW。)][- (WW Wz)] し, く 視 野 の 広 さ >] 


3 次 元 座標 上 に LINE @ で 描か れ た 物体 を 見 る 視線 を 与え ます . 
(Wa,。 Wi, W。) で 視点 ( 眼 の 位置 ) を 与え , (Ws,。 WW。。) で 
入 目 点 (注目 し て いる 点 ) を 与え ます . < 視野 の 広 さ > は , 画面 の 横 方 向 の 
視野 を ラジ アン で 指定 し ます . 


〇 使用 方 法 

本 ブログ ラム は 機械 語 で で き て いま す , ダン プリ スト また は ソー スリ スト を モ 
ー タ で 打ち 込ん で , BS AVE で フロ ッ ピ ア ィ スク に し まっ て お きま す . 本 プロ 
グラ ム を 使用 する と き は , CLEAR 文 , DEFE SEG 文 で , 機械 語 領域 を 定 
義 し て か ら , BLOAD 本 プロ グラ ム の 名 前 /。 R と し て くだ さい . これ 以後 . 
3 次 元 命令 が 使え ます . CLEAR 文 。 DEF SE な 文 、 BLOAD 文 は 、 プ 
ログ ラム 中 で も ダイ レグ トモ ー ド で も ど ち もら で も OK で す . BLOAD 実 行 後 は 
DEF SEG 文 定義 を 変更 し て も か まい ませ ん . 高速 CIRCLE, 拡大 PU 
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と と も に 使わ れる 場合 は ,。 ロー ド さ れ た プロ グラ ム が 重 な ら な いよ うに , DE 
F SEG 文 の 値 を 調整 し て くだ さい . 


人 例 > CLEAR,&H1D00 
DEF SEG=&H1D00 
は も OAD thDrTe も MEN D 寺 
本 プロ グラ ム に つけ た 名 前 


VIEW@(10。.50。、100) だ ご (100, 200, 2 0 0)。 1 

た INE@S(100、 よ 0 まあ 0 た た 4 0 0 80 0、6.0U) 
〇 プロ グラ ム の 説明 
本 プロ グラ ム は 5. 0 の 拡大 PU と 同じ 方 法 に よっ て BAS IC コ マン ド を 
拡張 し て いま す . 3 次元 一 2 次 元 変換 の 方 法 は 5. 3 の 説明 を 参照 し て くだ さい . 


〇 ソー スリ スト 
: THREE DIMENSION PACKAGE 
: LINE@(X1,Y1,Z1)-(X2。Y2。Z2) ,COLOR 
VIEW@(EX,EY,EZ)-(AX,AY,AZ ) , SIYA,KATAMUKI 
0620 SCRMOD EQU WORD PTR .620H 
0623 FORCLR EQU BYTE PTR ,623H 
062E VIEWX1 EQU WORD PTR .62EH 
0630 VIEWY1 EQU MORD PTR .630H 
0632 VIEWX2 EQU WORD PTR .632H 
0634 VIEWY2 EQU WORD PTR .634H 
06EA TEXPTR EQU WORD PTR .6EAH 
0A00 ENTRY EQU WORD PTR .0A00H 
104C MORK1 EQU MORD PTR .104CH 
104E MORK2 EQU WORD PTR .104EH 
1414 BCVAL EQU BYTE PTR .1414H 
141A FACC1 EQU 141AH 
1424 FACC2 EQU 1424H 
150A LIOWRK EQU 150AH 
1593 EXCOMF EQU BYTE PTR .1593H 
159C EXCOMO EQU WORD PTR .159CH 
159E EXCOMS EQU MORD PTR .159EH 
15A0 EXFUNO EQU WORD PTR .15AOH 
15A2 EXFUNS EQU WORD PTR .15A2H 
: INITIALIZE EXTENDED COMMAND TABLE 
0000 16 INIT: PUSH SS 
0001 1F POP DS 
0002 B86D00 MOV AX,OFFSET START 
0005 A39C15 MOV EXCOMO,AX 
0008 B87900 MOV AX,OFFSET RETFAD 
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000B 
000E 
000F 
0010 
0013 
0016 
001B 
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A3A015 

0E 

58 

A39E15 
A3A215 
C6069315FF 
CF 


BF0D00 
CDC4 
C3 


53 

F8 
BF3A00 
CDC4 


BF0100 
CDC4 


BF0200 
CDC4 


3CB0 
750A 
803C40 
7503 


0036 


017C 
001C 


ーー ーッ =・ で * 


ETVAL: 


)・・ に 


GVRET: 


001C 


0022 


0063 


0022 


0063 
0022 


0063 
001C 


0062 
0063 


007B 
0079 


GET3VL: 


ETTKN: 


MOV EXFUNO, AX 
PUSH CS 

POP AX 

MOV EXCOMS , AX 
MOV EXFUNS , AX 
MOV EXCOMF , 0FFH 
IRET 


SUBROUTINES 


GET A TOKEN 


MOV DI ,13 
INT 0C4H 
RET 


EVALUATE EXPRESSION 
AND CONVERT TO SINGLE 
AND STORE TO 〔[BX-BX+3] 


PUSH BX 
CLC 

MOV DI,58 
INT 0C4H 
dB GVRET 
MOV DI ,41 
INT 0C4H. 
POP BX 


CALL FAC1BX 
JMPS GETTKN 


POP BX 
JMPS GETTKN 


EVALUATE '(X.Y,Z)* 
AND STORE TO [BX-BX+111] 


PUSH BX 
CALL GETVAL 
POP BX 

CMP AL。'。* 
JNE STXERR 
ADD BX,4 
PUSH BX 
CALL GETVAL 
POP BX 

CMP AL," ,* 
JNE STXERR 
ADD BX,4 
CALL GETVAL 
CMP AL,*)* 
JNE STXERR 
JMPS GETTKN 


1 STATEMENT END CHECK 


ENDCHK: 


ERET : 


CMP AL,0 
JE ERET 
CMP_ AL,"'** 
JNE STXERR 
RET 


: OUTPUT SYNTAX ERROR 


STXERR: 


MOV DI ,1 
INT 0C4H 


1 EVAL 


:REAL 


1 OUTPUT ILLEGAL FUNCTION CALL 


ILGLFN: 


・ 
き 


MOV DI ,2 
INT 0C4H 


H COMMAND ANALYSIS 


START : 


CMP AL,.0BOH 

JNE NOTLIN 

CMP BYTE PTR [SI],'@" 
JNE RETFAD 


iLINE 


0103 
0105 
0106 
010A 
010D 
0110 


E95D0 1 
F8 

CB 
SCFF 
75FA 
803C85 
75F5 


2EC606FC0300 


807C0140 
75E9 

46 

46 
8936EA06 
E883FF 


E88EFF 


56 
8D9CAC03 
E89100 
E8B000 
BF2D00 
CDC4 


SE 
8D9CB803 
E88100 
83C604 
83FE0C 
75CB 


8D9CBC03 
E88000 
BBB803 
E88B00 


01D6 


0079 
0079 


0079 


001C 
00A3 
0039 


00B5 
001C 


0063 
0039 
00C9 
0022 
00C9 


0022 
005A 


019E 
018D 


017C 
019E 


017C 


00CE 


018D 
019E 


RETFAD: 
NOTLIN: 


VIEWA: 


HYPH: 


SIYQ: 


STMEND : 


ee 


VLOP1 : 


VLOP2: 


JMP LINE 
CLC 


CMP AL,OFFH iVIEW 
JNE RETFAD 

CMP、 BYTE PTR 〔SI],85H 

JNE RETFAD 

MOV CS:VIEWFG,0 

CMP BYTE PTR 1[SI],'@' 

JNE RETFAD 


MOV TEXPTR,SI 
CALL GETTKN 

CMP _ AL,"(" 

JNE HYPH 

MOV BX,OFFSET VEX 
CALL GET3VL 

CMP BL,OF4H 

JNE SIYQ 

CALL GETTKN 

CMP AL,"(" 

JNE STXERR 

MOV BX,OFFSET VAX 
CALL GET3VL 

CMP AL,'," 

JNE STMEND 

MOV BX,OFFSET SIYA 
CALL GETVAL 

CMP AL,' ご 

JNE STMEND 

MOV BX,OFFSET KATAMU 
CALL GETVAL 

CALL ENDCHK 


EXECUTION VIEW 


VDX=VAX-VEX 
VDX2=VDXxVDX 
VDYsVAY-VEY 
VDY2=VDYxVDY 
VDZ=VAZ-VEZ 
VDZ2=VDZxVDZ 


XOR SI,SI 

PUSH SI 

LEA BX,OFFSET VAX[SI] 
CALL BXFAC2 

LEA BX,OFFSET VEX[SI1] 
CALL BXFAC1 

MOV DI ,44 

INT 0C4H 

POP SI 

PUSH SI 

LEA BX,OFFSET VDX[SI] 
CALL FAC1BX 

CALL BXFAC2 
MOV. DI , 45 

INT 0C4H 

POP SI 

LEA BX,OFFSET VDX2LSI] 
CALL FAC1BX 

ADD SI,4 

CMP SI,12 

JNE VLOP1 


TEMP=SQRT(VDX2+VDY2 ) 
COSA=VDX/TEMP 
SINA=VDY/TEMP 
TEMP=SQRT(VDX2+VDZ2 ) 
COSB=VDX/TEMP 
SINB=VDY/TEMP 


XOR SI ,S1! 

PUSH SI 

LEA BX.OFFSET VDY2LSI] 
CALL BXFAC1 

MOV BX,OFFSET VDX2 
CALL BXFAC2 


iSUBTRACT 


iMULTIPLY 
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0113 
0116 
0118 
011B 
011E 
0121 
0124 
0127 
0129 
012A 


012E. 


0131 

0134 
0135 
0138 
013B 
013E 
0140 
0141 

0145 
0148 
014B 
014E 


0150 
0153 
0156 


BF2B00 
CDC4 
E86202 


E84B00 


8D9CF403 
E83400 
83C604 
83FE08 
75B5 


BBC403 

E83700 

802E1D140 1 
04 


015B 73 


015D 
0161 
0164 
0166 
0169 
016C 
016F 
0172 
0174 
0177 
017A 
017B 


017C 
017F 
0184 
0187 
018C 


018D 
0192 
0195 
019A 
019D 


019E 
01A3 
01A6 
01AB 
01AE 


01AF 
01B2 
01B5 
01B8 
01BB 
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FE061D14 
E81F02 


A11A14 
2E89870000 
A11C14 
2E89870200 
C3 


2E8B870000 
A31A14 
2E8B870200 
A31C1 4 

C3 


2E8B870000 
A32414 
2E8B870200 
A32614 

C3 


A11A14 
A34C10 
A11C14 
A34E10 
C3 


017C 


NOZERO: 


"ロー タッ = ャ = ャ 


_BXFAC1 : 


BXFAC2: 


AC1BX: 


MOV DI,43 
INT 0C4H 

CALL SQRT 

CALL SAVE 

MOV BX,OFFSET VDX 
CALL BXFAC2 

MOV DI ,46 

INT 0C4H 

POP SI 

LEA BX,.OFFSET COSA[SI] 
CALL FAC1BX 

CALL LOAD 

PUSH SI 

MOV BX,OFFSET VDY 
CALL BXFAC2 

MOV DI,46 

INT 0C4H 

POP Si 

LEA BX,OFFSET SINALSI] 
CALL FAC1BX 

ADD SI.,4 

CMP SI.8 

JNE VLOP2 


R=1/TAN(SIYA/2 ) 


MOV BX,OFFSET SIYA 
CALL BXFAC1 

SUB BYTE PTR .FACC1+3, 1 
JNB NOZERO 

INC BYTE PTR .FACC1+3 
CALL TAN 

XOR AX。AX 

MOV WORD PTR .FACC2.,AX 
MOV AX,8100H 

MOV WORD PTR .FACC2+2.AX 
MOV DI,46 

INT 0C4H 

MOV BX,OFFSET R 

CALL FAC1BX 

STC 

RETF 


i ADD 


iDIVIDE 


iDIVIDE 


ijFACC1 =FACC1 /2 


iFACC2= 1 
iDIVIDE 


SUBROUT INES 


[FACC1 ,FACC1+3]= >[BX ,BX+3] 


MOV AX,WORD PTR .FACC1 
MOV CS: [BX] , AX 

MOV AX,MORD PTR .FACC1+2 
MOV CS: 2[BX] , AX 

RET 


[BX,BX+3]=>[FACC1 ,FACC1+3] 


MOV AX,CS: [BX] 

MOV WORD PTR .FACC1 ,AX 
MOV AX,CS: 2[BX] 

MOV WORD PTR .FACC1+2.,AX 
RET 


[BX,BX+3]=>[FACC2 ,FACC2+3] 


MOV AX,CS: [BX] 

MOV WORD PTR .FACC2,AX 
MOV AX,CS: 2[BX] 

MOV WORD PTR .FACC2+2.AX 
RET 


〔FACC1 ,FACC1+3]= >[WORK1 , WORK1+3] 


MOV 人 PTR .FACC1 
MOV WORK1 ,A 

MOV AX。 WORD PTR .FACC1+2 
MOV WwORK2 .AX 

RET 


[WORKI ,WORK1+3]= >[FACC1 、FACC1+3] 





01BC 
01BF 
01C2 
01C5 
01C8 


A14C10 
A31A14 
A14E10 
A31C14 
C3 


A14C10 
A32414 
A14E10 
A3261 4 
C3 


46 

8936EA06 
2E803EFC0300 
752C 


A13206 
2B062E06 
DIF8 
A31A14 
C606141402 
BF2900 


2EFE06FC03 
E80AFE 
80FBF4 
7412 


3C28 
7403 
E945FE 
BBCC03 
E815FE 
80FBF4 
75F2 
BBOA15 
E84100 


E8EAFD 


50 
E8BBFD 


020F 


019E 


017C 
001C 
0229 


021E 
0063 


0039 
021B 
0270 


001C 
021B 
0039 


0270 


0262 


025D 
0068 


001C 


LOAD: 


MOV AX, WORK1 
MOV WORD PTR .FACC1 ,AX 
MOV AX, WORK2 


MOV MORD PTR .FACC1+2.AX 
RET 


[WORK1 , WORK1+3]= >[FACC2.FACC2+31 


MOV AX ,WORK1 
MOV WORD PTR .FACC2.,AX 
MOV AX, WORK2 


MOV WORD PTR .FACC2+2.AX 


i LINE@ SYNTAX ANALYSIS 


NVIEW: 


INC SI 

MOV TEXPTR, SI 
CMP CS:VIEWFG,0 
JNE NVIEW 


RR= (VIEWX2-VIEWX1 ) xR 


MOV AX,VIEWX2 

SUB AX,VIEWwX1 

SAR AX,1 

MOV WORD PTR .FACC1 ,AX 
MOV BCVAL, 2 

MOV DI ,41 

INT 0C4H 

MOV BX.OFFSET R 

CALL BXPAC2 


MOV BX,OFFSET RR 
CALL FAC1BX 

INC CS:VIEWFG 
CALL GETTKN 

CMP BL,0F4H 

JE OMIT 


: EVALUATE (X1.Y1.Z1) 


TOSTXE: 
NOER : 


OMIT: 


CMP AL,'(" 

JE NOER 

JMP STXERR 

MOV BX.OFFSET LPX 
CALL GET3VL 

CMP BL,0F4H 

JNE TOSTXE 

MOV BX,LIOWRK 
CALL CONV 


EVALUATE (X2,Y2。Z2) 


CALL GETTKN 

CMP AL,"(" 

JNE TOSTXE 

MOV BX,OFFSET LPX 
CALL GET3VL 

PUSH AX 

MOV BX,LIOWRK+4 
CALL CONV 

POP AX 


EVALUATE COLOR OPERAND 


TOILG: 
LE7: 


CMP AL,",・ 

MOV AL,FORCLR 
MOV AH,0 

JNE NOTCMA 

MOV DI ,74 

INT 0C4H 

MOV AX,MORD PTR .FACC1 
TEST AX,OFFF8H 
JE LE7 

JMP ILGLFN 
PUSH AX 

CALL GETTKN 


i: REAL 


iMULTIPLY 


iEVAL&INT 
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0261 
0262 
0265 
0268 
026C 
026E 
026F 


0297 
0299 
029A 
029D 
02A0 
02A4 
02A7 
02AA 
02AC 
02AF 
02B0 
02B1 

02B5 
02B8 
02BC 
02BF 
02C2 
02C4 
02C7 
02CA 
02CC 
02CF 
02D2 
02D5 
02D6 
02D7 
02DB 
02DE 
02E1 

02E3 
02E6 
02E7 
02E8 
02EC 
02EF 
02F3 
02F6 
02F9 
02FB 
02FE 
0301 
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58 
BBOA15 
894708 
C6470A00 
CDA7 

F9 

CB 


53 
33F6 
56 
8D9CCC03 
E823FF 
8D9C9403 
E80BFF 
BF2C00 
CDC4 

SE 
8D9CD803 
E8EDFE 
83C604 
83FE0C 
75DC 


33F6 

56 
BBD803 
E8EDFE 
8D9CEC03 
E8F7FE 
BF2D00 
CDC4 
E800FF 
5E 

56 
8D9CDC03 
E8DSFE 
8D9CF403 
E8DFFE 
BF2D00 
CDC4 
E802FF 
BF2C00 
CDC4 
BBD803 
E8CCFE 
E8A7FE 
SE 

56 
8D9CF403 
E8AFFE 
BF2D00 
CDC4 
E8C9FE 
5E 

56 
8D9CDC03 
E89EFE 
8D9CEC03 
E8A8FE 
BF2D00 
CDC4 
E8CBFE 
BF2B00 
CDC4 


019E 


018D 


017C 


0273 


018D 
019E 


01AF 


018D 


019E 


01C9 


019E 
017C 


018D 


01AF 


018D 


019E 


01C9 


NOTCMA: 


EERALRSESHka> 


CONV: 
CLOP1 : 


ee 


CLOP2: 


POP AX 

MOV BX,LIOWRK 

MOV 8LBX] , AX 

MOV BYTE PTR 10L[BX],0 
INT 0A7H 

STC 

RETF 


CONVERT FROM 3D TO 2D 


XX=LPX-VEX 
YY=LPY-VEY 
ZZ=LPZ-VEZ 


PUSH BX 


! 
LEA BX,OFFSET LPXESI] 
CALL BXFAC2 
LEA BX,.OFFSET VEXLSI] 
CALL BXFAC1 
MOV DI ,44 
INT 0C4H 
POP SI 
LEA BX,OFFSET XXE[SI] 
CALL PFAC1BX 
ADD SI,4 
CMP SI,12 
JNE CLOP1 


TEMP=XXxCOSA-YYxSINA 
YYsYYxCOSA+XXXSINA 
XX=TEMP 
TEMP=XXxCOSB-ZZxSINB 
ZZ=ZZxCOSB+XXxSINB 
XX=TEMP 


XOR SI,SI 
PUSH SI 

MOV BX,OFFSET 
CALL BXFAC1 
LEA BX,OFFSET 
CALL BXFAC2 
MOV DI , 45 

INT 0C4H 
CALL SAVE 

POP SI 

PUSH SI 

LEA BX,OFFSET 
CALL BXFAC1 
LEA BX,OFFSET 
CALL BXFAC2 
MOV DI ,45 

INT 0C4H 
CALL LOAD2 
MOV DI!,44 

INT 0C4H 

MOV BX,OFFSET 
CALL BXFAC2 
|CALL FAC1BX 
'POP SI 

PUSH SI 

LEA BX,OFFSET 
CALL BXFAC1 
MOV DI , 45 

INT 0C4H 

CALL SAVE 

POP SI 

PUSH SI 

LEA BX,OFFSET 
CALL BXFAC1 
LEA BX.OFFSET 
CALL BXFAC2 
MOV DI ,45 

INT 0C4H 

CALL LOAD2 
MOV DI , 43 

INT 0C4H 


XX 
COSA[SI] 


YY[SI] 


SINALSI] 


SINA[SI] 


YY[SI] 
COSA[SI ] 


iLIO GLINE 


iSUBTRACT 


iMULTIPLY 


iMULTIPLY 


iSUBTRACT 


iMULTIPLY 


iMULTIPLY 


iADD 


0303 
0304 
0308 
030B 
030E 
0311 


0313 
0316 
0319 
031C 
031F 
0322 
0324 
0327 
032A 
032D 
032F 
0332 
0334 
0337 
033B 
033D 
0341 
0342 


0345 
0346 
0349 
034C 
034F 
0352 
0357 
035A 
035C 
035F 
0362 
0365 
0367 
036A 
036C 
036F 
0373 
0375 
0379 
037A 
037C 


037D 
0381 
0383 


0387 
038A 
038D 
038F 


0390 
0392 


0394 
0398 
039C 
03A0 
03A4 
03A8 
03AC 


SE 
8D9CDC03 
E871FE 
83C604 
83FE08 
7586 


BBD803 


A13406 
2B063006 
D1F8 
2B061A14 
SB 
894702 


53 

BBD803 
E841FE 
BBDC03 
E84CFE 


C606141404 


BF2E00 
CDC4 
BBE803 
E83CFE 
BF2D00 
CDC4 
BF0C00 
CDC4 
A13206 
2B062E06 
D1F8 
03061A14 


2EA19003 
EB0 4 
2EA19203 


A3000A 
BF1500 
CDC4 
C3 


7C4F 
F54B 


00000000 
00000000 
00000000 
00000081 
00000000 
00000000 
00000000 


017C 


0299 


018D 
019E 


019E 


018D 
019E 


019E 


0387 


SQRT: 
TAN: 


CALFUN: 


SQRTAD 
TANAD 
VEX 
VEY 
VEZ 
VAX 
VAY 


VAZ 
VDX 


POP SI 

LEA BX,OFFSET YYISI] 
CALL FAC1BX 

ADD SI,4 

CMP SI,8 

JNE CLOP2 


[BX+2.BX+3]=(VIEWY2-VIEWY1 ) /2-ZZ/XXxRR 


MOV BX,OFFSET XX 
CALL BXFAC1 

MOV BX,OFFSET ZZ 
CALL BXFAC2 

MOV DI ,46 

INT 0C4H 

MOV BX,.OFFSET RR 
CALL BXFAC2 


iDIVIDE 


iMULTIPLY 
iINT 


AX,VIEWY2 
AX,VIEWY1 


AX,1 

AX,WORD PTR .FACC1 

BX 

2[BX] , AX 

[BX,BX+ 1 ]=YY/XXxR+(VIEWX2-VIEWX1 ) /2 


PUSH BX 

MOV BX,OFFSET XX 
CALL BXFAC1 

MOV BX,OFFSET YY 
CALL BXFAC2 

MOV BCVAL , 4 

MOV DI,46 

INT 0C4H 

MOV BX,OFFSET RR 
CALL BXFAC2 

MOV DI , 45 

INT 0C4H 

MOV DI ,12 

0C4H 
AX,VIEWX2 
AX、VIEWX1 
AX, 1 

AX,WORD PTR .FACC1 
BX 


iDIVIDE 


MULTIPLY 
i INT 


[BX] ,AX 


SQRT & TAN ROUTINE 


ENTRY MUST BE ADJUSTED 


MOV AX,CS:SQRTAD 
JMPS CALFUN 
MOV AX.CS:TANAD 


MOV 
MOV 
INT 
RET 


ENTRY ,AX 
DI ,21 
0C4H 


iSYS CALL 


WORK 


DW 4F7CH 
DW 4BFSH 


DW 0,.0 
DW 0 
DWw 0 
DW 0 
DW 0 
DW 0 
DW 0 
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03BO 00000000 VDY DW 0.0 
03B4 00000000 VDZ DW 0,.0 
03B8 00000000 VDX2 DW 0.0 
03BC 00000000 VDY2 DW 0.0 
03CO 00000000 VDZ2 DW 0.0 
03C4 00000081 SIYA DW 0.8100H 
03C8 00000000 KATAMU DW 0,0 
03CC 00000000 LPX DW 0.0 
03DO 00000000 し PY DW 0,0 
03D4 .00000000 LPZ DW 0.0 
03D8 00000000 XX DW 0.0 
03DC 00000000 YY DW 0,.0 
03E0 00000000 ZZ DW 0,.0 
03E4 6C4D6A81 R DW 4D6CH, 816AH 
03E8 00000000 RR DW 0.0 
03EC 00000081 COSA DW 0.8100H 
03FO 00000081 COSB Dw 0.8100H 
03F4 00000000 SINA DW 0,.0 
03F8 00000000 ` SINB DW 0,.0 
03FC 00 VIEWFG DB 0 

END 
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5. 2 ポリ ゴン 分 割 に よる 三次 元 グ ラフ ィ ク ス 


5. 2. | 概要 


この プロ グラ ム は , 物体 表面 を ポリ ゴン (多角 形 ) の 集合 で ある と 考え て , 分 
割 され , 座標 値 を 計算 きれ た ポリ コン 群 の 透視 図 を ディ スプ レイ に 表示 する プ 
ログ ダグ ラム で す オ 、 [ 

入力 する デー タ は , ポリ ゴン の 座標 値 。 頂点 の 法 線 ベク トル , ポリ ゴン の 色 , 
視点 。 視線 上 の 一 点 , 視野 の 角度 で す . 出力 は カラ ー デ ィ ス プレ イ 上 へ の ドッ ト 
出力 と し て 行なわ れ ま す . 「 

な お , 入力 デー タ と し て 取り 扱う ポリ ゴン は , 処理 の 関係 上 , 三角 形 に 限定 さ 
れ て お り 。 また シェ イデ ィング を 行う た め , ポリ ゴン の 色 は 6 色 と な り ま す 。 こ 
の プロ グラ ム は , Romney の アル ゴリ ズム (参考 文献 参照 ) を 参考 に し て あり ま 
す . 処理 は で きる だ け 単 純化 を 図る よう に 支 力 し まし た . 

プロ グラ ム の お お ま か な 流 れ を 以下 に 示し ます . 


ポリ ゴン デー タ 入 力 


座標 変換 , 名 リ ツ 紅 聞 
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で は これ より , 図 1 の 個々 の 内 容 の 概略 を 説明 し ます . 

ポリ ゴン デー タ 入 力 は , ポリ ゴン の 頂点 の (*, ヶ , る ) 値 お よび , その 点 で の 
法 線 ベク トル (Nz, Ny, Nz), ポリ ゴン の 色 を 入力 する も の で す . 

座標 変換 は , 一 般 の xーyーz 直交 座標 系 で 記述 され た ポリ プン 頂点 値 の デー タ 
を , 後 の 隠 れ 面 処理 に 都合 の よい よう に , 正規 透視 座標 系 と いう 特殊 な 座標 系 に 
変換 する プロ セス で す . 

隠れ 面 処理 は , 三次 元 図形 処理 で 最も 重要 と な る 処理 で , この プロ グラ ム に お 
いて も , 最も 複雑 な プロ セス に な っ て いま す . 隠れ 面 処理 の 目的 は 。 物体 の 後ろ 
に 隠れ た も の は 表示 し な い , つま り , 目 に 近い 物体 か ら 優 先 的 に 表示 する こと に 
あり ます . この 処理 を 施す こと に よっ て , 物体 の 前 後 関 係 の は っ きり し た 透視 図 
を 描く こと が で きま す . 

シェ イデ ィング は , 光源 を 仮定 し た 時 の 物体 表面 の 陰影 づけ を 行なう も の で , 
ポリ ゴン デー タ の 法 線 ベ クト ル と , 光線 の ベク トル と の 計算 に よっ て 行なわ れ ま 
す . な お , ポリ ゴン の 各 項 点 に よっ て , 陰影 の 度合 い は 異な る た め , ポリ ゴン 内 
部 の 点 を 表示 する 時 に は , 陰影 を 補間 し , 円 滑 化す る スム ー ズ シェ イデ ィング 処 
理 が 必要 と な り ま す . 

ディ スプ レイ の 表示 は , ディ スプ レイ の 1 ドッ ト ず つの 色 を 指定 する 方 法 で 行 
な われ ます . な お , 本 プロ グラ ム で は FORTRAN コ ン パ イラ を 使用 し て お り , 
グラ フィ ッ ク サ プ ブルー チン が な いた め に , 出力 の 段階 で 機械 語 を 使用 し て いま す . 
以上 が 処理 の 概略 で す . 

で は これ より , 座標 変換 か ら 順 を 追っ て 詳細 な 説明 に 入り , その 説明 の 後に , 
実際 の プロ グラ ム の リス ト の 説明 に 入り ます . 


5. 2. 2 座標 変換 


O 〇 ァ ー ャ ッ ー 々 直交 座標 系 

物体 表面 を 分 割 し た ポリ ゴン は , *ー ッ ー< 直 変 座標 系 で 記述 され ます が , この 
座標 系 で の デー タ は 2 回 の 変換 を 施さ きれ, 隠れ 面 処理 に 都合 の よい 正規 透視 座標 
系 と 呼ば れる , 特殊 な 座標 系 の デー タ に 変換 され ます . それ で は これ か ら 図 を 示 
し な が ら ァ ーッ ー ぇ < 直交 座標 系 で の デー タ の 意味 を 示し ます . 
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1 


Eyefrom ae 


図 2 x-g-z 直 交 座 標 系 


上 図 は 々 ーッ ー ぇ 直交 座標 系 で の 視点 デー タ お よび ポリ ゴン の 座標 デー タ を 示し 
た も の で す . Eyefrom は 視点 で , Eyeat は 視点 前 方 の , 視線 上 の 任意 の 一 点 で , 
画 者 に よっ て 見 る 方 向 が 定め られ ます . 

視点 か ら 伸 びている 角 す い は 視野 の 範囲 を 表し ます . そし て この 角 す い の 範 囲 
内 に ある ポリ ゴン の み を , 表示 する こと に な り ま す . 
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図 3 KH と 視角 と の 関係 


視点 を 頂点 と する 角 す い の 中 に は , ポリ ゴン を 投影 する 投影 面 が 含ま れ ます . 
実際 に は この 角 す い の 範 囲 の う ち , 投影 面 か ら 手前 側 は ピン ト が 合わ ず に 見 えな 
いも の と 仮定 し て あり ます の で , 投影 面 より 視線 方 向 の 範囲 の み が 表 きれ る こと 
に な り ま す . ここ で , この 角 す い の 頂 角 を 定め る パラ メー タ と し て , K お よび 
を 考え ます . K は 投影 面 の 大 き さ の 1/2, H は 視点 か ら 投影 面 まで の 距離 を 示し 
て いま す . これ に より , 頂 角 すなわち 視角 の は 2 XArctan (K ノ /H) と な り ま 
す . ここ で , 視角 の み を 問題 に する 時 は K ノ H と いう 比 の 値 だ け で 済む の で す 
が , 投影 面 と 視点 の 間 の ポリ ゴン は 見 えな いも の と し て クリ ッ ピ ング し ます の で 。 
H と いう 値 が 重要 に な っ て きま す . 

視角 の が 大 きく な る と , 投影 像 は 。 カメ ラ の 広角 レン ズ で 撮っ た 像 の よう に 錠 
ん で きま す が , より 多く の 範囲 を 表示 する こと が 可能 と な り ま す . また の が 小さ 
く な る と , 望 可 レン ズ で 撮っ た よう に , 奥行 き が あま り 感 じ ら れ な い が , より 狭 
い 範囲 を 拡大 し た 投影 像 に な り ま す . 

さて , *ー ッ マー る 座標 系 で の パラ メー タ の 説明 は 以上 の と お り で し た が , ここ で 
ャ ーッ ツー る 直交 座標 系 か ら 視 点 座標 系 へ の 変換 を 施し ます . 実際 の プロ グラ ム で は 。 
この 次 の 正規 透視 座標 系 へ の 変換 も 含め て , 一 度 に 行なっ て し まう わけ で す が , 
ここ で は わか り 易 くす る た め に , 二 度 の 変換 に 分 け て 考え て み ま す . 
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メー ヤーZ 直 交 座 標 系 





4 視点 箕 視 座標 系 


O 視点 透視 座標 系 

視点 箕 視 座標 系 は 視点 を z 軸 に , 水平 面 と 平行 に x 軸 を と っ た 座標 系 で , *ー 
ッ ー る 直交 座標 系 と の 関係 は 図 4 の よう に な り ま す . 

ここ で *ー ッ ー る 直交 座標 系 か ら 視 点 座標 系 へ の 変換 行列 を 式 1 に 掲げ ます . 


式 1 COS @ sin の sin sin ecos / 
Tv 0 COS ーsin 
Sin 〆 ーcos の sin/ ーcos @CcoOs // 


式 中 の coszZ, sin Z, cos が, sin は 次 の 式 に よっ て 計算 され ます . 
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ダー る ge イル Z アテ 


COS の 三 ーーーーーーーーーーーーーーーーーーーーーーーーーーーー。 で 11] の 一 ーーーーーーーーーーーーーー ーーーーーーーーーーーー 
Y ( メ zー テ 4 アヤ (ーー 台 )7 Y (メー テ 。 ゲ 十 ( ヶ ー る ) 


和 (テー ァ 。)* 十 ( み ーz。) < 
cd (ケー ィ z7 十 (ケー2。 ア 十 (z/ 一 2 が 


Sn ーー 式 2 


M/ 
(テー イズ 2 ドル ケー タ 9 だ 土 (2 メー タ 。)1 


注 ) 式 1, 式 2 を 使用 し た 変換 は 。 * 一 y 直 交 座 標 系 に お いて , 図 5 の 左側 の 
図 の よう に , ッ が 上 方 を 向い た 右手 系 座標 系 で 記述 され た ポリ ゴン を 変 
換 す る も の で す .。 し か し , まち が える こと の な いよ うに , この プロ グラ 
ム で は , 々 が 上 を 向い た 右手 系 の 座標 系 で ポリ ゴン を 記述 する よう に な 
っ て いま す 、 
この 点 を 解決 する た め に ,。 後に 掲げ る プロ グラ ム で は , ポリ ゴン の x 
値 を z 値 と し て , ッ 値 を x 値 と し て , z 値 を y 値 と し て 読み 込む よう に な 
っ て いま す . その だめ , この 変換 公式 が . その まま 使わ れ て いま す . 


式 1 の 〒。 と いう マト リク ス に よっ て , *ー ッ ー ぇ < 直 変 座標 系 の ポリ ゴン デー タ 
は , 視点 座標 の デー タ へ と 変換 され ます . 


〇 正規 透視 座標 系 

正規 透視 座標 系 は , 隠 面 処理 に た い へ ん 便利 な 座標 系 で あり , この 座標 系 に 変 
換 さ れ た ポリ ゴン の デー タ を 使用 する と , 容易 に 隠 面 消 去 処 理 を 行なう こと が で 
きま す . 正規 箕 視 座標 系 は 図 5 に 示し た 性 質 を も っ た 座標 系 で す . すなわち , 視 
野内 の 角 す い の う ち , 投影 面 か ら 視 る 線 方 向 に 広がる 領域 を , 直方 体 に 押し 縮め 
た 形 と な り ま す . ここ で 例 を 掲げ ます と , 視点 座標 系 の (0, 0,oo) の 点 は , 正 
視 透 視座 標 系 で の (0, 0, 1) の 点 に , また 投影 面 上 の 点 (0, 0, H) は , 
(0, 0, 0) に 変換 きれ ます . この よう に 視点 座標 系 か ら 正規 透視 座標 系 へ の 
変換 に お いて , 視線 上 の 点 は 々 値 の み が 変 化し ます が , それ 以外 の 点 で は , *, ッ 
値 も 変化 し ます . つま り , 視点 より 遠い 場所 に ある ポリ ゴン ほど 大 き さ が 縮小 さ 
れ て , 正規 透視 座標 系 の 直方 体 の 中 に 納め られ ます . 逆 に 視点 近く の ポリ ゴン は は , 
拡大 され る こと に な り ま す . 
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A oo 


視点 座標 系 
A 


え 
Aoo 
Coo 
Co 
Z 
正規 透視 座標 系 
ド 


図 5 正規 透視 座標 系 の 性 質 


5 。 

A 

D 

ここ で 視点 座標 系 か ら 正 規 透 視座 標 系 へ の 変換 マト リク ス を 書く べき で す が , 
4X4 マ トリ クス に な る な ど , 話 が 難解 に な る お それ が ある の で , ここ で は 控え 
ま 生 。 

さて ,。 以上 の 2 つの 変換 に よっ て ァ ー ッ ー ぇ 直交 座 標 系 で 表わさ れ た ポリ ゴン デ 
ー タ は , 隠 面 処理 に 便利 な 正 視 透 視座 標 系 へ と 変換 され まし た . で は , これ か ら , 


この 変換 され た デー タ を どの よう に 使っ て 隈 面 処 理 を 行なう か に つい て , 説明 し 
て いき ます . 


235 


5, 2. 3 隠 面 消去 法 


Oo 概要 

隠 画 消去 法 と は , ワイ ヤ フ レ ー ム の 隠 線 消去 と 同様 に , 視点 の 手前 側 に ある ボ 
リ ゴ ン を 優先 的 に 表示 し , その ポリ ゴン の 後方 に 隠れ て いる ポリ ゴン は 表示 し な 
いと いう 作業 を 行なう 方 法 で , 三次 元 グ ラフ ィ ク ス を 行なう た め に は 非常 に 重要 
な ルー チン と な っ て いま す . 隠 面 消去 法 に は 多く の 方 法 が あり ます が , この 節 で 
は プロ グラ ム に 使わ れ て いる 方 法 と , 現在 主流 と な っ て いる 方 法 の 2 つ に つい て 
説明 し ます 。 





スキ ャ ン ラ イン 


図 6 正規 透視 座標 系 と スキ ャ ン ラ イン 


まず 最初 に この プロ グラ ム で 使わ れ て いる 方 法 を 説明 し ます . 正 視 衣 視 座標 系 
に 変換 され た ポリ ゴン は , 拡大 , 縮小 を 受け て , 正規 透視 座標 系 の 直方 体 の 中 に 
納め られ ます . ここ で , この 直方 体 を テレ ビ と し て 考え て み ま す . する と 投影 面 
が テレ ビ の プ ブラウン管 表面 に 対応 し ます . テレ ビ の 原理 は ,、 上 か ら 下 へ 走査 線 が 
走り , その 走査 線上 を 電子 ビー ム が 左 か ら 右 へ 走っ て , 1 ドッ ト ご と に 点 を 表示 
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し て いき ます . 具 光 体 と , 目 の 残 像 効果 に よっ て 面 と し て 表示 され ます . ここ で , 
正規 透視 座標 系 で も 同様 に 走査 線 (scanline) を 発生 きせ て み ま す . (前 ペー ジ 図 
6 参照 ) そし て , その スキ ャ ン ラ イン を ぇ 軸 の プラ ス 方 向 に 移動 し て で きた 平面 
を スキ ャ ン ラ イン 平面 (scanlineplane) と 呼び また , その スキ ャ ン ラ イン 平面 
と ポリ ゴン と の 交 線 を セグ メン ト と 呼ぶ こと に し ます . 
さて , 隠 画 処 理 は 。 この スキ ャ ン ラ イン , スキ ャ ン ラ イン 平面 、 セ モグ メン ト を 
用 いて 行なわ れ ま す が , まず , 図 6 に お いて , A ポリ ゴン の み が 存 在 す る も の と 
し て , 簡単 な 例 か ら 説 明 し ます . 
処理 の 対象 が , 1 つの ポリ ゴン だ 
け の 場合 は , た だ 単に セグ メン ト を 
投影 面 に 投影 し た 線 分 を 表示 し て い 
くだ け で 済み ます . 
まず プ ブラウン管 の 上 端 、 す な わ ち 投 
影 面 の 上 方 より スキ ャ ン ラ イン を 一 
本 ずつ 発生 きせ ます . そし て , スキ 
ャ ン ラ イン 平面 が ポリ ゴン と 交わ っ 
た 時 に , その 変 線 で ある セグ メン ト 
を 投影 面 に , < 軸 に 平行 に 投影 し ま 
すず "に の よう に し て 。 次 さい らい スキャ 
ン ラ イン を 下げ て いき 。 セグ ダメ ント 
を 順に 表示 する と , ポリ ゴン が ディ 
スプ レイ に 表示 され る こと に な り ま 
す . ( 図 7) 図 7 セグ メン ト と ポリ ゴン 


さて , 実際 に は ポリ ゴン は 一 つ だ け で は な く , ポリ ゴン 群 と し て 表示 され ます . 
そし て 当然 な が ら ,。 ポリ ゴン は 重なり 合い , 隠 画 処理 が 必要 と な っ て きま す . 隠 
画 処理 は 。 手前 側 の ポリ コン を 優先 し て 表示 させ よう と いう 処理 で す . し か し , 
ポリ プン と いう 面 を 扱い , 優先 度 を 判定 する と , 扱う デー タ が 三次 元 に な り , 処 
理 が 複雑 に な っ て し まい ます . そこ で , 実際 の 処理 で は セグ メン ト 間 の 優先 度 の 
判定 を 行い , 優先 する , つま り 正 規 透視 座標 系 で の z 値 の 小さ い 方 の セグ メン ト 
を 表示 し て いき ます . すなわち , スキ ャ ン ラ イン を 上 方 か ら 下 方 へ と 順に 下げ て , 
スキ ャ ン ラ イン 平 画 と 変わ る ポリ プン が あれ ば , その セグ メン ト を 計算 し , 何 本 
か の セグ メン ト を 切り 出し ます . そし て それ ら の セグ メン ト の 間 の 々 < 値 を 比較 し , 
値 の 小さ な z 値 を 持つ セグ メン ト を 表示 し ます . この 処理 を 各 ス キャ ン ラ イン ご 
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と に 行ない , 隠 面 処 理 を 施し ます . 


さて , セグ メン ト の 優先 度 の 判定 に つい て も う 少 し 詳し い ぃ 説明 を し ます . 図 8 
は テレ ビ の 上 方 か ら ス キャ ン ラ イン 平面 。 セ グ メ ント を な が め た 図 で す . 





投影 面 
図 8 セグ メン ト の 優先 度 判定 


図 8 に お いて , ポリ ゴン A と B と C の ポリ プン が スキ ャ ン ラ イン に か か っ て い 
ます . 図 を 見 て わか る こと は , セグ メン ト A は B よ り も 優先 度 が 高く 。A と C は 
交差 し て いる こと で す .A と B の よう に 交 差し な ぃ い 場合 は 。 ど ちら か 一 方 を 表示 
すれ ば よい わけ で す が , A と C の よう に 交差 し て いる 場合 は セグ メン ト を 2 つ に 
分 離す る な どの 処理 が 必要 と な り ま す . 

ここ で , 使用 する 方 法 は , セグ メン ト の 優先 度 判定 を 行なわ ず , スキ ャ ン ラ イ 
ン 平面 上 に 直線 P を 引き , セグ メン ト と の 交点 , P4, Pa, Pc の z 値 を 比較 する こ 
と に より , 優先 度 を 求め ます . この 直線 P は 。 スキ ャ ン ラ イン が 上 か ら 下 へ と 走 
る の と 同様 に , 左 か ら 右 へ と 走り 。 そ の つど , 交点 を 求め , ぇ 値 を 比較 し , < が 最 
小 値 で ある セグ メン ト の 色 を スキ ャ ン ラ イン 上 に 点 と し て 表示 し て , 1 つの スキ 
ャ ン ラ イン 上 の ドッ ト を 埋め て いき ます .。 この よう に , スキ ャ ン ラ イン 上 を 左 か 
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! 


上 


ら 右 へ と 走査 する 線 分 を 考え る こと に よっ て , 三次 元 の 隠れ 面 の 問題 が , 一 次 元 
の 点 同士 の 値 の 比較 と いう 間 題 に まで 単純 化 さ れる わけ で す . 

な お , スキ ャ ン ラ イン 数 は , 出力 する ディ スプ レイ の 縦 の ドッ ト 数 より 多く と 
っ て も 無駄 と な り ま す . 同様 に スキ ャ ン ラ イン 上 を 左 か ら 右 へ と 走査 する 際 も , 
ディ スプ レイ の 横 ド ッ ト 数 に 合わ せ て , 走査 が 行なわ れ ま す . 

で は ここ で 再び 隠 面 処理 に つい て まとめ て み ま す . 


プロ セス 1 : スキ ャ ン ラ イン を 発生 きせ る 
プロ セス 2 : スキ ャ ン ラ イン 平面 と ポリ ゴン と の 交 線 を 求め る 
プロ セス 3 : スキ ャ ン ラ イン 上 を 左 か ら 右 に スキ ャ ン す る 
プロ セス 4 : 線 分 P と セグ メン ト の 交点 を 求め る 
プロ セス 5 : 最小 値 算出 
プロ セス 6 : 最小 値 を も つ 点 を 有する ポリ ゴン の 色 を 表示 する 
プロ セス 7 : continue 
プロ セス 8 : continue 


この よう に し て 陣 面 処理 は 行なわ れ ま す . 

本 来 は , 三次 元 の 面 同士 の 優先 度 の 比較 と いう 難し い 問 題 を , 点 同 士 の z 値 の 比 
較 と いう 容易 な 問題 に 置き か えて いる こと が , この 処理 の 特徴 で ある と 言え まし 
ょ う . この 々 値 の 比較 の 作業 を ヶ デ プス テス ト (Zdepth test) と 呼び ます . 


oO アル ゴリ ズム 「 
隠 面 消去 を 説明 し た と ころ で , プロ グラ ム の 具体 的 な アル ゴリ ズム に つい て 説 “ 

明 し ます . 

まず . 使用 する ディ スプ レイ を 横 1 3 ドッ ト , 縦 15 ド ッ ト と 仮定 し ます . 

この アル ゴリ ズム で は , ディ スプ レイ の 横 ド ッ ト , 縦 ド ッ ト , 処理 可能 な ポリ ゴ 

ン の 数 の 要素 を 持つ 配列 を 用 いて , ボリ ゴン が 何 番目 の スキ ャ ン ラ イン か ら 何 番 

目 の ス キャ ン ラ イン まで か か っ て いる の か , お よび , セグ メン ト は 左 か ら 何 ドッ 

ト か ら 始 まっ て 何 ド ッ ト で 終わ る の か と いう 情報 を 書き 込み ます . そし て 次 に , 

スキ ャ ン ラ イン を 発生 きせ , 配列 か ら 何 番 の ポリ ゴン が その スキ ャ ン ラ イン に か 

か っ て いる か を 読み 出し , セグ メン ト の 位置 , お よび 長 さ を 求め , 横 ド ッ ト 数 分 

の 配列 に 書き 込み ます . 最後 に その 配列 の 内 容 を 1 つ ず つ 見 て いき , 1 ドット ご 

と の る 々 デプス テス ト を 行ない 、 色 を 表示 し ます . で は これ より 具体 的 な 例 を 掲げ 

て プロ グラ ム の アル ゴリ ズム を 見 て み ま し ょ う . 
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9 各 テ ー ブ ル と 画面 と の 対応 関係 


上 図 は スク リー ン 上 に 映っ た ポリ ゴン と , この アル プリ ズム で 使用 する ぇ 進入 . 
ぇ 退出, ッ 進入 退出 テー ブル の 内 容 を 示し た も の で す . ここ で , ポリ ゴン の デー 
タ は 正規 透視 座標 系 で の ァ 値 と y 値 を 変換 し , 投影 面 左 すみ が (1, 1) に , 右 す 
み が (1 3, 1 5), (ディ スプ レイ が 1 3 X 15 ド ッ ト で 。 アス ペク ト 比 が 1 の 
時 ) に な る よう に 変換 され て いる と し ます . (な お 々 値 は 保存 し ます ) 

さて , ポリ ゴン デー タ を 変換 し た 後 , 進入 , x 退 出 , y ッ 進入, 退出 の 4 つの テ 
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ー プ ブル を 用 意 し ます . 進入 テー ブル は , 何 番 目 の ス キャ ン ラ イン が , 何 番 の ボリ 
ゴン に 最初 に 接する か と いう 情報 を 持ち も , ディ スプ レイ の 縦 座標 分 の 配列 要素 を 
持っ た , ポリ ゴン ナン バ が 入る 配列 で す . y 退 出 は 同様 に 何 番目 の の スキ ャ ン ラ イ 
ン で 、 何 番 の ポリ ゴン が 抜け 出る か と いう , 同じ く ポ リ ゴ ン ナン バ が 入る 配列 で 
す . 図 9 の 例 で は y ヶ 進入 テー ブル を 見 る と , 1 4 番 の スキ ャ ン ラ イン に , No。 1 
の ポリ ゴン が 進入 し 。1 2 番 の スキ ャ ン ラ イン で No. 2 の ポリ ゴン が 退出 する こ 
と が わか り ま す . 


※ ス キャ ン ラ イン は ディ スプ レイ の デー タ 転 送 の 関係 上 、 上 か ら 下 へ と 走る の で 
最初 の スキ ャ ン ラ イン は 1 5 番 の スキ ャ ン ラ イン で , 順 々 に 1 つ ず つ 下 が り ま 
す . パー ソナ ルコ ンピュータ の ディ スプ レイ は 画面 の どの 場所 か ら ド ッ ト デ ー 
タ を 送 ろ うと も か まわ な い の で す が , グラ フィ クス 専用 ディ スプ レイ の 場合 
左上 か ら 1 ドッ ト ず つ デ ー タ を 送る 転送 モー ド が あり , その た め に スキ ャ ン ラ 
イン は 上 方 か ら 下 方 へ と 動き ます . 


y 進 入 , y 退 出 テ ー ブ ル の 具体 的 な 計算 と し て は , 両者 を それ ぞ れ Yentry, Yexit 
と 名 づけ 。 タ ターム ぬ を ポリ ゴン 頂点 の y 値 と する と , 


Yentry (IFIX (max ( ヵ , め , 双 ))) 三 Polygon Number 
Yexit (IFIX (min ( 必 , 必 , %))) 三 Polygon Number 


の よう に 計算 され ます . ( 

さて ,。 こ の よう に y? 進 入 , 退出 テ ー ブ ル が 作ら れる と , 何 番 の スキ ャ ン ラ イン 
に 何 番 と 何 番 の ポリ ゴン が 接し て いる か が 容易 に 求め られ ます . この スキ ャ ン ラ 
イン に 接し て いる ポリ ゴン の リス ト を 作成 する た め に は , ポリ ゴン の 総数 分 の 有 要 
素 を 持つ 配列 , y 占 有 テ ー プ ブル を 作り ます . この テー ブル は , 現在 の スキ ャ ン ラ イ 
ン に 何 番 の ポリ ゴン が 接し て いる か と いっ た 情報 を 記憶 する も の で , 実際 に は フ 
ラグ が 書き 込ま れ ま す . この 例 で す と ポリ ゴン 総数 は 3 で すか ら , Yoccupied (3 
と いう 3 ビッ ト の 配列 を 取り ます . (occupied : 占有 され る ) 
そこ で 図 9 の 例 に 従っ て Yoccupied の 働き を 見 ます と , 


双 志 ャ ン ラ イン 14 和 書い の Yoccupied (1) 三 1 , Yoccupied (3) 三 1 
スネ スキャ ジラ イン 12 書 “"“……… Yoccupied (2) 三 1 
ズ 才 ャ ンジ フク イメ は 等" Yoccupied (2②)= ニ 0 , Yoccupied (3) 三 0 
メキ ギ キャン テラ イン 1 和書 ……… Yoccupied (1) 三 0 
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と いう 動き を し ます . これ に よっ て , 現在 の スキ ャ ン ラ イン に か か っ て いる ポリ 
ゴン の リス ト が , ッ 占有 テー ブル の フラ グ の ON, OFF に よっ て 表現 さき れる こと に 
な り ま す . な お , ここ で 注意 し て ほし いこ と は , ? 進 入 。 ッ 退出 テ ー ブ プル は 。 隠 面 
消去 処理 の 初め に 作成 され , 処理 の 終了 まで 変化 し な い の に 対し , y 占 有 テ ー ブ ル 
は スキ ャ ン ラ イン が 1 つ 下 が る ご と に 更新 され る こと で す . 


さき て, 今 ま で の 説明 で , NO. 3 の ポリ ゴン を 意識 的 に 者 いて きた の で す が , こ 
の ポリ ゴン は , 上 辺 が NO. 1 の ポリ ゴン と 同じ y 座 標 で , 下辺 が NO. 2 の ポリ 
ゴン と 同じ y 座標 と な っ て いま す . この た め , y 進入 , y 退 出 テ ー ブ ル に は , 1 
お よび 2 と いう ポリ ゴン ナン バ が 代表 し て 書き 込ま れ て いま し た . それ で は どの 
よう に し て NO . 3 の ポリ プン の 情報 を 書き 込む か と いう 方 法 は , 別に ポリ ゴン 
数 と 同じ 大 き さ の テー ブル を 作り , 同一 の スキ ャ ン ラ イン に 複数 の ポリ ゴン が 進 
入 あ る い は 退出 する こと を 示す デー タ を 書き 込む こと に よっ て 行なわ れ ま す . こ 
の テー ブル を 以下 に 示し , その 使用 法 を 説明 し ます . 


LT 和 TH 


図 10 Yentry' と Yexit 


上 図 に お いて , Yentry は NO. 1 の ポリ ゴン が 進入 する スキ ャ ン ラ イン と 同じ 
スキ ャ ン ラ イン に NO. 3 の ポリ ゴン が 進入 する こと を 表わし て いま す . 

同様 に Yexit は NO. 2 の ポリ ゴン が 退出 する スキ ャ ン ラ イン と 同じ スキ ャ ン ラ 
イン に NO. 3 の ポリ ゴン が 退出 する こと を 表わし て いま す . この 例 は , 図 9 と 対 
応 し て いる の で , 見 較べ て 下さ い . 

実際 の プロ グラ ム で は , ポリ ゴン の 数 は 数 万 個 に も 達する こと が あり , 一 つの 
スキ ャ ン ラ イン に 何 千 個 ち も の ポリ ゴン が 進入 する 状況 が 予想 で きま す が , 
Yentry , Yexitf は その よう な 状況 に も 対応 で きる よう に な っ て いま す . 
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図 | リス ト の 連結 の 様子 


次 ペー ジ の 図 の よう に Yentry', Yexit と も に , 一 つの スキ ャ ン ラ イン に 複数 個 
の ポリ ゴン が か か る 時 , イモ ズル 式 に ポリ ゴン ナン バ を 引き 出す こと が で きま す . 

2 つの テー ブル は , Yentry, Yexit の 作成 と 同時 に 作成 され ます . その た だめ , 
実行 の 終了 まで , その 値 は 変わ る こと が あり ませ ん 。 


さて , 画 び 図 9 に 戻っ て x 進 入 テ ー ブ ル , * 退 出 テ ー ブ ル の 説明 に 移り ます . 図 
で は 8 番 の スキ ャ ン ラ イン が 発生 し て いま す . 
* 進 入 , 退出 テー ブル の 意味 は 進入, ッ 退 出 テ ー ブ ル の 意味 と ほとん ど 変 わり が 
あり ませ ん 。 つ まり , スキ ャ ン ラ イン 上 を 1 ドッ ト ず つ ス キャ ン し て いく 際 に , 
最初 に ポリ ゴン が 接 じ し , その ドッ ト に 対応 する 要素 に ポリ ゴン ナン バ を 書き 込む 
テー ブル が x 進入 テー ブル で す . そし て スキ ャ ン し て いく ドッ ト か ら , 最後 に 接 
し 終わ る ドッ ト に 対応 する 要素 に ナン バ を 書き 込む テー ブル が ぇ 退出 テー ブル で 
す . 

進入 , y 退 出 テ ー ブ ル と 同様 に , 1 つの ドッ ト に 複数 の ポリ ゴン の 辺 が 状 す る 
こと も 考え られ る の で , Xentry', Xexit と いう 配列 を 同様 に と こり, さき ほど の 説 
明 と 同じ 作業 を 行ない ます . 

さき て, 4 つの テー ブル が 揃っ た 後に , ッ 占有 テー ブル と 同じ し く , * 占 有 テ ー プ ブル 
を 作成 し ます . これ は , スキ ャ ン ラ イン 上 を 1 ドッ ト ず つ ス キャ ン す る ご と に 更 
新 さ れる テー ブル で , その ドッ ト を 含む ポリ ゴン ナン バ を 参照 する た め の テ ー プ 
ル で す . yy 占有 テ ー ブ ル と 同様 に フラ グ が 書き 込ま れ ま す . そし て ぇ 占有 テー ブル 
が 作成 され た 後に は , その リス ト に 従っ て 各 ポ リ ゴ ン の る ぇ 値 の 算出 を 行ない , ボリ 
ゴン 間 の 々 値 の 比較 : z デ プス テス ト を 行ない , 最小 の z 値 を 有する ポリ ゴン の 色 


を その ドッ ト に 表示 し ます . 
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それ で 今 ま で 述べ て きた アル ゴリ ズム を まとめ て み ま す . 


プロ セス 1 : ポリ ゴン デー タ よ り ッ >? 進入, y 退 出 , ッ 進 入 ', 退出 ' の 4 テー 
ブル を 作成 
プロ セス 2 : DO スキ ャ ン ラ イン 数 の 繰り 返し 
プロ セス 3 : 占有 テー ブル の 作成 
プロ セス 4 :x 進 入 ,x 退 出 。 進入 ', 退出 ' の 4 テー ブル を 作成 
プロ セス 5 : DO 横 ド ッ ト 数 の 繰り 返し 
プロ セス 6 : * 占 有 テ ー ブ ル の 作成 
プロ セス 7 : 占有 テー ブル の ポリ ゴン リス ト に より , ポリ 
ゴン 間 の sz デプス テス ト を 行なう . 
アロ や ヤス 8 と も UNT TINUE 
アロ セス 9 :CONTINUE 


O デ プス バッ ファ 

今 まで 説明 を 進め て きた , スキ ャ ン ラ イン を 使っ て 隠 面 消去 処理 を 行なう 方 法 
は スキ ャ ン ラ イン アル ゴリ ズム と 呼ば れ て いま す . 

し か し , 現在 は コン ピュ ー タ の 記憶 容量 が 増え た た め ,z デプス パッ ファ と いう 
隠 画 消去 処理 が 主流 に な っ て いま す . これ は 画面 上 の ドッ ト 数 と 同じ 数 の 要素 を 
持つ , 実数 型 二 次 元 配列 を 用 意 し , 投影 面 に 投影 され た ポリ ゴン の >z 値 を , ポリ 
ゴン に 含ま れる 画素 に 対応 する 配列 に , 入れ ます . この よう に , 個々 の ポリ ゴン 
に 対し , その 占有 する 画素 に 対応 する 配列 に z 値 を 入れ ます . そし て も し , 書き 込 
も うと する 配列 に , 他 の ポリ プン の 々 る 値 が 入っ て いた と する と , 両者 の 小さ い 方 の 
値 を 入れ ます . この よう に し て , 総 ポ リ ゴ ン 数 の 作業 を 終え を る と , この 配列 に は 
z 値 の 最も 小さ い 値 が 書き 込ま れ , 簡単 に 隠 画 消去 を 行なう こと が で きま す . 

この 方 法 は を 々 デプス バッ ファ と 呼ば れ , コン ピュ ー タ の 記憶 容量 が 大 きい 場合 
は , ご く 科 単に 隠 面 消去 を 行なう こと が で きる の で す が , 記憶 容量 の 小さ い パ ー 
ソナ ルコ ンピュータ 等 な ど で は , 比較 的 少な い 記 憶 容量 で 実行 可能 な スキ ャ ン ラ 
イン アル ゴリ ズム に 頼ら ざる を 得 ま せん 。 

隠 画 消去 処理 に は 他 に も 多く の 方 法 が あり ます . それ ら の 詳し い 内 容 に つい て 
は , 参考 文献 を 参照 し て 下さ い . 
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5 の 1 相生 才 ま イッ シル グ 


Oo 概要 

シェ イデ ィング (shading) は 物体 の 陰影 プ づけ の こと で , ディ スプ レイ に 出力 す 
る 図形 に リア リティ を 出す た め に , 重要 な 手法 と な っ て いま す . これ を 行なう た 
め に は 光源 の 場所 と 種類 , 大 気 中 で の 光 の 散乱 , 物体 の 各 波 長 に 対す る 反射 率 , 
屈折 率 , 表面 の 状態 等 、 多く の デー タ を 必要 と し ます が , コン ピュ ー タ で 処理 を 
する た め に , 簡単 な 数 式 の モデ ル で シェ イデ ィング を 表現 し ます . 


Oo 数式 モデ ル 

シェ イデ ィング の モデ ル に 必要 な 要素 は , 物体 の 一 点 に 当たる 光 と , 周囲 か ら 
の 散乱 光 と , 入射 光 に よる 散乱 光 と , 正 反 射 光 に よる 輝度 で す . これ ら の 条件 
に より , 表示 する 物体 の 一 点 の 輝度 を 求め 、 ディ スプ レイ に 表示 する こと が 可能 
に な り ま す . 





図 |2 シェ イデ ィング モデ ル 


透明 で な い 物 体 表 面 上 の 一 点 の 輝度 は , 
し =a 十 b・cos i 十 c・(cos e) " 


と いう 式 で モデ リン グ を し て いま す . 
この 式 の うち a は , 物体 の 周囲 の 散乱 光 の 度合 いで す . 例え ば 同じ 物体 を 宇宙 
空間 に 置い た 時 と , 砂漠 に 置い た と ころ で は , 特に 物体 の 光 の あたら な い 部 分 の 
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輝度 は 異な る で し ょ う . し た が っ て a は 物体 の 輝度 の 最低 値 を 保証 する も の と 考 
えら れ ま す . 

次 の bcos i と いう 式 は , 図 11 に お いて , 光 に よる 物体 表面 の 乱反射 光 を 計算 し ま 
す . 

最後 の c・(cos e) "と いう 式 は , 入射 光 が 表 面 で 反射 され た 反射 光 の うち , 目 に 
入る 輝度 を 表わす も の で す . 

シェ ィ デ ィング は この よう な 式 に よっ て モデ ル 化 され , 計算 され ます . な お , 
最近 パー ソナ ルコ ンピュータ 上 で も 行なわ れる よう に な っ た レイ ・ ト レー シン グ 
は , 物体 表面 か ら 目 に 入っ て 来る 光 を 計算 する の で は な く , 逆 に 目 を 出発 点 と し 
た 仮想 の 光路 を 仮定 し , 光路 を 物体 表面 で 反射 , 屈折 させ な が ら 光 源 に た どり つ 
き , 輝度 を 算出 する も の で す . 


oO ス ムー ズ シ ェ イ ディ ング 

ポリ ゴン は 平面 で ある た め , その まま シェ イデ ィング を 施す と , 物体 を 分 割 し 
た ポリ ゴン の 接ぎ 面 で 輝度 の 境界 が で き て し まい , 凸凹 の ある 物体 と し て ディ ス 
プレ イ に 表示 され て し まい ます . 

し た が っ て , この 輝度 の 階段 状 の 変化 を 滑ら か な も の に する 必要 が あり ます . 
この 処理 を スム ー ズ シェ イデ ィング (smoothshading) 処理 と 呼び ます . この 処理 
は 物体 を ポリ ゴン 群 で 表現 し た 時 に は 非常 に 重要 な 処理 と な り ま す . 

スム ー ズ シェ イデ ィング は , 本 来 ,。 ポリ ゴン の 頂点 上 の 法 線 ベク トル を , ポリ 
ゴン の 表面 上 で 線形 補間 し た ベク トル と 、 光 線 ベ クト ル と で 、 前 の 数 式 モ デル を 
使っ て 輝度 を 計算 し て 行なわ れ ま す . し か し , この プロ グラ ム で は , 計算 量 を 減 
ら す 目 的 で , まず 頂点 の 法 線 ベク トル か ら そ の 点 で の 輝度 を 算出 し , デプス テス 
ト の 後 の 輝度 の 計算 の 段階 で 三 点 の 輝度 より 線形 補間 を 行ない , 表示 を 行ない ま 
す . この よう に する こと に よっ て , ベク トル の 補間 か ら ス カラ の 補間 へ と , 処理 
は 単純 化 さ れ ま す . 

図 13 に は この 法 線 ベク トル の 補間 法 と , 輝度 の 補間 法 を 示し ます . 
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ベク トル の 補間 


/S 


輝度 の 補間 


バハ 


図 |3 ベク トル の 補間 と スカ ラー の 補間 


Oo 法 線 ベ クト ル 

ボリ ゴン は 平面 で も る た め , 項 点 の 法 線 ベク トル は 同じ 方 向 を 示し て いま す . 
し か し , スム ー ズ シェ イデ ィング を 施す た め に は , ポリ デ ゴン 本 来 の 法 線 ベク トル 
と は 異な っ た 向き の 法 線 ベク トル を 頂点 に 設定 する 必要 が あり ます . 
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図 14 頂点 の 法 線 ベ クト ル の 向き 


例 と し て 図 14 に 円 すい の 側面 を 6 枚 の 三角 形 。 つま り 6 角 す い に 分 割 す る 時 の 
法 線 ベ クト ル の 向き を 示し まし た 。 この よう に 法 線 ベク トル の 向き は , モデ ル の 
対象 と な っ た 物体 の 法 線 ベク トル と 一 致し て いま す . 

この 法 線 ベ クト ル に よっ て 輝度 を 計算 し , スム ー ズ シェ イデ ィング を 施す こと 
に より , 物体 の 輪郭 の 凸 思 な ど 気 に な ら な い 程 度 の リア リティ の ある 三次 元 図形 
出力 が 得 ち られ ます . 


以上 ,。 この プロ グラ ム の アル ゴリ ズム の 基礎 と な る 理論 を 説明 し て きま し た . 
で は これ より 節 を 改め , プロ グラ ム の 具体 的 な 説明 に 入る こと に し ます . 
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5. 2. 5 プロ グラ ム の 詳細 


含ま で 述べ て きた アル ゴリ ズム に よっ て で て, この プロ グラ ム は 作ら れ ま し た . で 
は , これ より プロ グラ ム の 使用 法 の 説明 , 用語 の 定義 を し て 実際 の リス ト を 見 て 
いき ます . な お , 処理 する ポリ ゴン は アル ゴリ ズム の 関係 上 , 三角 形 の み と し , 
4 9 個 ま で の ポリ ゴン が 処理 可能 と な っ て いま す . 


O 使用 法 

・ 入 力 を する . 
・ 視 点 の (X, Y, の の, 視線 上 の (X, Y, Z) K, H 値 を 入力 する . 
・ 点 光源 の (ALX, ALY, ALZ) 値 の 入力 . 
・ ポ リ ゴ ン 頂点 デー タ が 書き 込ま れ て いる ファ イル 名 の 入力 . 

・ 画 面 に 出力 され る . 
また , ポリ ゴン 頂点 値 を 記述 する フォ ー マ ッ ト は 以下 の と お り に な り ま す . 
な お , 前 述 し た と お り , ポリ ゴン は 三角 形 に 限定 され て いま す . 


。 DAT 

カラ > っ カン パル 0 4 ) 

人 Y。 の (3E15. 7 ) XX, Y。 乙 は 頂点 の 座標 値 
NN NN。。 N,,。N,, N, は 頂点 で 
大 の 。 ボ ポリ ゴン 1 の 法 線 ベク トル . 
NO ay Na 

OO 

Ns,。 N。。,。 N。。 


ポリ ゴン 2 の 記述 
ポリ ゴン 3 の 記述 


用 語 の 定義 , 説明 
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図 !5 頂点 ・ 陵 線 ナ ン バ 


・ ポ リ ゴ ン 陵 線 ナン 1|-[3] を 図 の よう に 定め ます . 


"や モグ メシ ンド x 値 お よび < アグ プス の イン クリ メン タル 計算 : セ グ メ ント, < デプス 
の 計算 に は 乗算 を 必要 と し , 特に z デ プス の 計算 は 画面 の ドッ ト 数 ぶん の 回 数 
を 行なう た め , 計算 時 間 が 増加 し ます . 
この だ た め セ グ メ ント の x 値 で は , スキ ャ ン ラ イン が 1 つ 下 が る ご と に 増減 する x 
値 を DeltaX と いう 変数 に , 々 デプス で は , ドッ ト が 1 つ 右 に 動く ご と に 増減 す 
る る 値 を DeltaZ と し , イン クリ メン タル 計算 を 行なっ て いま す . 


OoO プ ログ ラム の 内 容 


以下 より , プロ グラ ム の 内 容 を リス ト に 従っ て 説明 し ます . 
FORTRAN ソ ー ス リス ト と 見 比べ な が ら 読 ん で 下さ い . 
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・COMMON 文 : サブ ルー チン CONSTANT に 引き 渡す た め の 共 通 
変数 を 宣言 し ます . EFEA(Eyefrom Eyeat) は 視 
点 , 視角 , 投影 面 の 指定 に , TVT P は ァ ー ッ ー ぇ 直 
交 座 標 系 か ら 正 規 透 視座 標 系 へ 変換 する 際 の マト リ 
クス デー タ ,。 MAT は ァ ー ッ ー ぇ 直交 座標 系 か ら 視 点 
座標 系 へ の 変換 マト リク ス デ ー タ で す . 

・DIMENSION 文 : 処理 に 必要 な 配列 の 宣言 . 変数 の 意味 に つい て は 変数 


表 で 後述 し ます . 
・DATA 文 ・ IROUND と いう 3 特殊 な 目的 で 使わ れる 配列 の 内 容 
で あ 
定数 設定 
< デー タ 入 力 > 


・WRITE, READ 文 : 視点 , 視線 上 の 一 点 , K, H, 点 光 源 の 位置 , 
ポリ ゴン デー タ が 書き 込ま れ て いる ファ イル 名 の 入 
力 を 行ない ます . 
・ 入 力 さ れ た ボリ ゴン の ファ イル を OPEN し て 5 番 に 設定 し ます . 
・ ま ず , ポリ ゴン の 色 ナ ン バ を 入力 し ます . 
・ ポ リプ ゴン 各 項 点 に つい て の 3 回 の ルー プ 
・ ポ リプ ゴン 項 点 値 の 入力 , な お , 順序 が Z, X, Y と な っ て いる 理由 は , 
図形 処理 で 用 いる ャ ーッ ー ぇ 直交 座標 と , 一 般 的 な Z が 上 を 向い た 直交 
座標 た で は らら メ エッ ー ィ の の け 方 が 軸 立 る た め 、 ここ で デー タ を だ まし 
て 読み 込ん で いま す . また ポリ プン 頂点 値 を 入れ る 配列 に は , Point X 
ーPoint Z と , Poin XX メーPoin ZZ の 2 種類 が あり ます . この よう に 
する 理由 は , 次 の クリ ッ ピ ング 処理 で 。 ポリ ゴン 数 が 増減 する た めで 
す . し た が っ て 最初 に Poin XXーPoin ZZ に デー タ を 読み 込ん で お 
き , 後に Point メーPoint Z に 置き 換え ます . 
な お , Shine D と Shine, 2Z Color と Color も これ を 同じ 関係 に あり ま 
す . 
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・UNT エ T と いう 。 ベク トル の 単位 ベク トル 化 を 行なう サブ ルー チン を 
C AL し する . し た が っ て 入力 する 法 線 ベク トル は 単位 ベク トル で あ 
る 必要 は あり ませ ん . 

・ こ の 頂点 に 当たる 光 の ベク トル 成分 算出 . 

・ 再 び UN1I 十 を 呼び 。 こ の 光線 ベク トル の 単位 化 . 

・ShineZ と いう , 輝度 を 求め る ファ ンク ショ ン 文 に より 輝度 を 求め , 
ShineD と いう 頂点 の 輝度 を 入れ る 配列 に 書き 込む . 


・I は 入力 され た ポリ ゴン 数 。 

・ ボ ポリ ゴン が 続く 限り 1 番 へ 飛ぶ . 

・ 入 力 機 器 の 5 番 を CLOSE し ます . 

・ サ プ ブルー チン CONSTANT を CALL し ます . 


この CONSTANT で は 座標 変換 に 必要 な マト リク ス デ ー タ が 計算 され 
ます . な お , サ プ ブル ー チ ン , ファ ンク ショ ン 文 に つい て は 後に 詳 も く 述 べ 
ます , 


< マス 1 > 視野 外 の ポリ ゴン お よび が, 投影 面 を また ぐ ポ リ ゴ ン は 
クリ ッ ピ ング を 施す 必要 が あり ます . この バス 1 は 。, 
座標 変換 と 同時 に , クリ ッ ピ ング を 行ない ます . 


・N は クリ ッ ピ ング 後 の ポ リ ゴ ン 総数 が 入る 変数 . 
・ 入 力 さ れ だ た ポリ ゴン 総数 分 の ルー プ 開 始 . 


・ZCOLOR か ら COLOR に デー タ を 移し ます . 

* 文 、Y。Z に 頂点 値 を 移し , WR に CONSTANT で 計算 され た 
変数 を 用 いて , 変換 に 必要 な 値 を セッ ト . 
・WR=0 と いう 事 は *ーy ッ 平面 に 水平 に 視線 を 向け た 時 に 起こ り 
ます . こう な り ま す と 上 式 で の 計算 は 不可 能 と な る の で , スト ッ 
デ セ しま きま 
・Point XーPoint 有 に 叉 , Y,。Z を 変換 し て 正規 透視 座標 系 の デー 
タ に 変換 し て 入力 し ます . 
・ も し 今 計算 し た 頂点 が , 視点 と 投影 面 の 間 に あ る か , も し く は , 
視点 の 後ろ ク に あれ ぱ ば, 

・IFLUG と いう 変数 を イン クリ メン ト . Memo 』 と いう , 


了 値 つ まり 頂点 ナン バ を メモ する 変数 を セッ ト . 
・TF 文 終わ り . 
1000  ・DO 文 終わ り . 
・A Max 1, A Min 1 は , 実数 値 デ ー タ の 最大 , 最小 値 を 求め る 関数 , 
ここ で ポリ ゴン 各 項 点 の x, 方 向 の 最大 ・ 最 小 値 を 求め ます . 
・ も し ポリ ゴン が 視野 内 の , 投影 面 よ り 向こう 側 に 全部 入っ て いる か , 
も し く は , ポリ ゴン が 投影 面 を また いで いる な ら ば ぱ ば , 
・ も し , ポリ ゴン が 投影 面 を また いで いる な ら ば , 
・XDDーZ グ DD に ァ *ー ッ ー を 座標 系 か ら 視 点 座標 系 に 変換 し た 
座標 値 を 入れ る . (正規 透視 座標 系 で は な いこ と に 注意 ) 
* も し IFLUG=2, つ まり 2 点 が 視点 と 投影 面 の 間 に あ る 
な ら ば , 
・ も し , 視点 座標 系 で の ZZ 値 が HH より 大 きい 頂点 な ら ば , 
つま り , 頂点 ナン バ を 本 の DO 文 で 動か すう ち に , 投影 
面 よ り 向 こう 側 の 項 点 が あら われ た な ら ば , Memo J に 
その 項 点 ナ オン バ を 入れ る . (以後 , J= 1, 3 と いう よう 
な ルー プ の 場合 は , ポリ ゴン 頂点 ナン バ を 動か し て いる 
も の と 解釈 し て 下さ い .) 
・ 投影 面 を また ぐ 線 分 の うち , 一 方 の 両端 の 座標 を 求め る . 
・ 媒介 変数 の 計算 . 
・ 線 分 の 不可 視 側 の 端 を , 投影 面 と その 線 分 と の 交点 に 変 
更 する . 
・ 輝度 を ポリ プン 陵 線上 で 線形 補間 し て SDD に 入れ る 
・ も う 一 方 の 線 分 を クリ ッ ピ ング する 
「 (処理 は 前 と 同じ ため, 省略 ) 
1025 yDO 10.2 5 の ルー プ で ,。 クリ ッ ピ ング きれ て , 新 し 
< 計算 され た 項 点 座標 を , Point メーPoint Z, 新しい 輝 
度 値 を Shine に 入力 する . 
*・ELSE 文 : IFLUG= 1 の 場合 , つま り 1 点 が 視点 と 投影 
面 の 間 に あ る 場合 . 
ん 1 
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※ ク リッ ピン グ の 具体 的 な 処理 を 見 て きた と ころ で , この クリ ッ ピ ング 処理 を も 
う 少 し 詳し く 説 明 す る た め に , ひと まず リス ト の 説明 を 中 断 し ます . 

プロ グラ ム 上 で は IFLUG と いう 変数 が クリ ッ ピ ング の 場合 分 け を し て いま 
す . IFLUG は 0 一 3 の 4 つの 値 を と り ま す が , それ ぞ れ の 場合 を 図 16 に 示し 
ます 、 


ノ 
に テー 投影 面 
と 
| 


図 6 ポリ ゴン の 位置 と |FLUG 
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図 16 は , 視点 座標 系 に お いて , y 軸 の 正 の 方 向 か ら 真下 に 見 た と き の 図 で す . 
影 面 に よっ て 可視 狂 域 と 不可 視 領域 と に 分 けら れる わけ で す が , ここ で 問題 
と な る こと は , ポリ ゴン が 投影 面 を また ぐ 場 合 に は (IFLUG=1 or 2 の 場 
合 )、 ポリ ゴン を 分 割 し て 可視 領域 の み の ポ リ ゴ ン に 分 け て や ら ね ば な り ま せ 
ん . 

この 処理 を 行い ませ ん と , 不可 視 領域 内 の 頂点 を 正 視 透 視座 標 系 に 変換 する 
際 に , Z 値 が 1 以上 に な る と いう お か し な 値 に な っ て し まい ます . 

さて , 以上 に より , クリ ッ ピ ング 処理 で 問題 と な る 場合 は IFLUG=1 or 2 
の 場合 で ある と いう 結論 に 達し ます . 

ここ で , IFLUG=2 or 1 の 場合 の ポリ ゴン の 分 割方 法 を 示し ます . 


① P 


③ 
| 


図 17 IFLUG= 2 の 場合 


IFLUG=2 の 場合 , 可視 領域 に 含ま れる ポリ ゴン は 三角 形 の た め , 旧 ポ リ 


プン の 図 中 め と ③ の 項 点 デ ー タ を ず ⑰⑦', ③ に 変更 し ます . その た め , 第 一 に , 何 
番目 の 頂点 が 可視 領域 側 に 入っ て いる の か を 1I〒 文 に よっ て 判定 し ます . 図 の 
例 で は 1 と いう 頂点 ナン バ が 得 ら ちら れる は ず で す ,。 そこ で , ①ー② の 陵 線 , ①ー 
③ の 陵 線 と 投影 面 と の 交点 を 求め , ⑳⑰'⑬" の 2 つの 項 点 デ ー タ を 算出 し ます . そ 
し て 旧 ポ リ ゴ ン デー タ を , この 新 ポ リ ゴ ン の デー タ と 置き 換え ます . 

ここ で プロ グラ ム 中 の TI ROUND と いう 配列 に つい て 説明 し ます . 図 15 で , 


255 


1 と いう , 可視 側 の 頂点 ナン バー が 求め られ る と , それ と 対応 する 2 , 3 と い 
う 頂点 ナン バ が 必要 に な り ま す . この た め に は 1 と いう 頂点 ナン バ に 1 を 足し 
て 2 を 算出 し , 1 を 引い て 3 を 算出 する と 便利 で す , 

この た め , I ROUND (5) と いう 配列 を と り . 

は ん すす A IKOUMDU/9、1。 2。 3。 ! た と デー ケア を 衣 室 し 。 

項 点 ナ オン バ 1 に 1 を 加え る 操作 で は , I ROUND(1 十 1 十 1), 逆 に 1 を 引く 
操作 で は , I ROUND(1 一 1 十 1) と いう 計算 を し ます . な お , 配列 中 の 十 
1 と アン ダー ライ ン を 施し た 部 分 は , 配列 の 引き 数 が 0 に な ら な いよ うに する 
だ た め の 加 算 で す . 

さて , ボリ ゴン 陵 線 の クリ ッ ピ ング と 同時 に , 頂点 も 変わ る た め , 輝度 も 変更 
し な けれ ば な り ま せん . この プロ グラ ム で は , 輝度 を 陵 線 上 に て 線形 補間 し て 
いま す . 

次 に IFLUG=1 の 場合 に つい て 述べ ます . 





図 18 IFLUG= | の 場合 


IFLUG=1 の 場合 , 可視 領域 に 含ま れる ポリ ゴン は 四角 形 の た め に 2 つの 
三角 形 に 分 割 す る 必要 が 生 し ます. し か し , 基本 的 な 考え 方 は IFLUG=2 
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の 場合 と 全く 同様 で す . 

この よう に ポリ ゴン の 位置 に より , ポリ ゴン 総数 が 増大 する た め に , Poin XX 失 
ーPoin ZZ と いう グル ー プ と Point メーPoint Z と いう 2 グル ー プ の 配列 を 富 
言 し , 読み 込み 時 に は Poin XX に , クリ ッ ピ ング 後 は Point 多 に 入れ る と い 
う 方 法 を と っ て いま す . 

それ で は 再び プロ グラ ム の 説明 に 戻る こと に し ます . 


・ELSE 文 : IFLUG= ニ 1 の 場合 
・MEMO J に は 以前 の 処理 に よっ て 視点 と 投影 面 と の 間 
に ある 頂点 ナン バ が 入っ て いる の で , それ を 用 いて 2 本 
の 線 分 の 片方 ずつ の 項 点 を 求め )X 1-Z1,X2-Z2 
に , 2 頂点 で の 輝度 値 を S 1, S 2 に 入れ ます . 
・T を 求め ます . ' 
・ 投 影 面 と 2 本 の 線 分 の うち の 1 本 と の 交点 を 求め ます . 
また , 輝度 も 補間 し ます . 
・Point X に これ ら の 視点 座標 系 の デー タ を 正規 透視 
座標 系 デー タ に 変換 し て 入れ ます . 
・X Max , Y Max を 求め ます . 
・ も し 新しく 作ら れ た 1 つの 三角 形 が 視野 内 に 入っ て 
ぃ ゅ いたら , 
・Point X, Point Y を 変換 し て , 正規 透視 座標 か 
ら , スキ ャ ン ラ イン に 都合 の よい 座標 系 に 変換 し 
ます . この 座標 系 を スク リー ン 座 標 系 と 呼び ます . 
・NORMAL と いう サブ ルー チン を 呼び デプス 
テス ト に 必要 と な る ポリ ゴン の 平面 式 を 求め ます . 
また 輝度 を 補間 する た め に 輝度 平面 の 平面 式 も 求 
め ま す . 
・DetaX と いう , ポリ ゴン の デプス 計算 の 際 に 行 な 
われ る イン クリ メン タル 計算 の た め の 増 分 量 を 算 
' 則 し まず す 。 
・Point X, Point Y= 0 の 時 。 1 に し ます . 0 に し て 
お く と , 見 えな い ポ リ ゴ ン と し て 処理 され ます . 
・X Max, X Min,。 Y Max, Y Min を 求め ます . 
・ DeltaX と いう , スキ ャ ン ラ イン が 1 進む ご と 
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に 増分 する . スキ ャ ン ラ イン と セグ メン ト と の 
交点 の x 値 の 増分 量 を 求め ます . 
この Deltax は , セグ メン ト 両 端 の x 値 の イン 
クリ メン ト 詩 算 に 用 いま す . 
・Formul (3。 N)= 0 な ら ば 微少 量 に し ます . 
・N=N 十 1 と し , つ まり 新しい ポリ ゴン が 1 つ 増 
加 し た 情報 を 書き 込み ます . 
・IFLUG=1 の 場合 が 続き ます . 
も う 一 つの 三角 形 を 作成 し ます . 
これ 以下 数 行 は 含ま で と 同じ 処理 で す . 
*・COLOR (N)=ZCOLOR (⑪) で , ポリ ゴン の 色 を 
ゴ ピ ー セ も まず 
・1FLUG の IF 文 終了 . 
・Point メーPoint Z を スク リー ン 座 標 系 に 変換 し ます . 
・ ボ ポリ ゴン 平面 式 お よび 輝度 平面 式 の 算出 . 
・ 以 下 、 さき ほど 述べ た 処理 と 同じ も の で す . 
SN キーN キ また N を イン み タ 導 ント し ます 。 


1005・ ボ リプ ゴン 総数 分 の ルー プ 終 了 . これ に より 全て の ポリ ゴン は クリ ッ ピ ング 
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きれ まし た . 
・N は 実際 の N より 1 大 きい の で , 1 を 引き ます . 


< ポリゴン 陵 線 デ ー タ 作成 ブロ ッ ク > 
ボ ポリ ゴン と スキ ャ ン ラ イン 平面 と の 交 線 で ある セグ メン ト 両 端 の x 値 は 
スキ ャ ン ラ イン が 1 つ 更 新 さ れる ご と に 平面 式 か ら 算 出さ れる の で は な く , 
ボ ポリ ゴン が 進入 する スキ ャ ン ラ イン で の セグ メン ト デ ー タ に 増分 量 を 加え 
る イン クリ メン タル 計算 を 行ない ます . この ブロック で は その た め の , 最 
初 の セグ メン ト の 両端 の x 値 を 求め ます . 





図 9 セグ メン ト の イン クリ メン タル 計算 


・ ポ ボ ポリゴン 数 の 繰り 返し , 
・ も し ポリ ゴン が 画面 上 方 に は み 出 し て いた ら , 
・ 陵 線 と 画面 上 方 と の 交点 の x 値 を 求め る . 
・ も し 求め た x 値 が 不適 当 な ら ば , 
・Ryosen の 内 容 を 0 に し , その 陵 線 ナ ン バ を ひか る る. 
・ELSE 適当 な ら ぱ ば, 
・ 後 に Delta X と いう 増分 量 を 足す こと に な る た め , あら か 
じ し め 引い て お く , 
・ELSE : 画面 上 方 に は み 出 し て いな か っ た ら , 
・ ポ リ デ プン 上 辺 が 水辺 に な っ て いる か 否 か を 調べ る カウ ンタ に 0 
を セッ ト . 
・ 上 辺 が 水辺 に な っ て いる か どう か を 調べ る . 
・ も し , 上 辺 が 水平 に な っ て いた ら 。 
・ も し 陵 線 No. 1 が 水平 だ っ た ら , 陵 線 2 と 3 を 端 と する 最 
も 上 の セグ メン ト の 両端 の x 値 を 求め 。Ryosen と いう x 
値 を 入れ る 配列 に モッ ト す る . “ 
・ も し 陵 線 No.2 が 水平 だ っ た ら . 
・ も し 陵 線 No. 3 が 水平 だ っ た ら . 
・ELSE : 普通 の 処理 . I REM と いう 配列 の 内 容 は , 最初 に 
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セグ メン ト が か か ら な い 陵 線 ナ ン バ で す .。F と いう ファ ンク シ 
ョ ン は セグ メン ト の x 値 を 求め る ファ ンク ショ ン で す . 
1100・CONTINUE 


図 20 画面 か ら は み 出 す ポ リ ゴ ン 


<?》⑦ 進 入 , y 退 出 テ ー ブ ル 作成 プ ブロック >・ ポ リ ゴ ン 数 の 繰り 返し 
・Y Max, Y Min を 求め , 進入 テー ブル を 参照 で きる 値 に 正 し て 1 
Y Max, I Y Min に 入れ る 。, 
・ も し , 進入 テー ブル (I YEn) に 何 も 入 っ て いな か っ た ら 
> その まま ボリ プン ナン バエ る 入札 る 。 
・ ELSE : ポリ ゴン ナン バー が すでに 入っ て い ぃ いたら, 
・ す で に 入っ て いる ポリ ゴン ナン バ を 求め て k に 入れ る , 
* 進 和信 テー ブル (TI YZEN) の 内 容 よ り 。。 ポリ ゴン ナン バ 
を 順 々 に 引き 出し , 最後 の ナン バ を 引き 出す . 
・I ド 文 を 抜け る と k に は 最後 の ポリ ゴン ナン バ が 入っ て 
い る 。 
・ リ スト に 現在 の ボリ ゴン ナン バ を 追加 する . 
・ENDIE 
・y 退 出 テ ー ブ ル に つい て も 同様 の 処理 を 行なう . 
1200・CONTINUE 
< く ス キャ ン ラ イン 発生 > スキ ャ ン ラ イン を 発生 し , セグ メン ト 値 
を 出し , デプス テス ト を 行なう 最終 ブロ 
ッ ク 
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・ ス キャ ン ラ イン を 上 か ら 下 へ と 走ら せる . 
・ も し , この スキ ャ ン ラ イン に 進入 する ポリ ゴン が あれ ば , 
・y 占有 テー ブル に フラ グ を 立て る . 
・ ス キャ ン ラ イン に か か る ポリ ゴン を カウ ント する 変数 を イン クリ 
メン ト す る . 
・ も し , 進入 する ポリ ゴン が 1 つ 以 上 あれ ば , 
・ さ き ほ ど と 同じ よう に k に その ナン バ を 入れ ,。y 占有 テ 
ー ブ ル に た 書き 加え る . 
・ENIJF 
*・ENDIF 
・ も し , この スキ ャ ン ラ イン か ら 退 出す る ポリ ゴン が あれ ば , 


・ 以 下 , 前 の 処理 と 同じ . 


・ENDIF 
・1IYOCCO に スキ ャ ン ラ イン を 占め る ポリ ゴン 数 を セッ ト す る . 
* こ の IF 文 は . この プロ グラ ム を 走ら せ て いた コン ピュ ー タ で 使用 で き 
る WHILE 文 を 直し た も の で , 多少 不 自然 と な っ て いま す . 
WHILE (1 NE. N) 
・1 を 1 か ら ポ リ ゴ ン 数 まで 回 し , 何 番 の ポリ ゴン か を 調べ る . 
・ も し , ! が 占有 する ポリ ゴン ナン バ で あっ た な ら ぱ , 
・ セ グ メ ント 値 の イン クリ メン ト 。 
・ も し , セグ メン ト の 一 端 が 新しい 陵 線 に か か っ た な ら ば ぱ ば, 
・ 新 陵 線 で の セグ メン ト x 値 の 算出 を 行なう . 
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図 2| 新しい セグ メン ト の 生成 


・ セ グ メ ント の 左端 右端 値 を 求め , 補正 し ます . 
・X 進入 テー ブル , X 退出 テー ブル を 作り ます . 
この 方 法 は Y の 場合 と 全く 同じ で す . 
1330 ・WH I LE 文 の 代わ り を する IE 文 の 終了 . 

・ ァ 占有 テー ブル の 代わ り を する II POINT に 初期 値 を セッ ト し ます . 
y 占 有 テ ー プ ブル は 上 述 の よう に 使わ れ て いま し た が , 占有 テー 
プル は 使わ れ て いま せん . この 方 法 は , 1 ドット ご と に , ポリ 
ゴン 数 分 の サー チ を する た め , 効率 が 悪い か ら で す . その た め , 
I Point と いう 双方 向 ポ イン タ を 用 いて いま す . 

例え ば ある ドッ ト を No.4, 6, 2 の ポリ ゴン が 占有 する 時 . 1 
Point の 内 容 は 次 の よう に な っ て いま す . 


5 なあ プル シナ ン ン ノン \ 





図 22 IPoint 


まず (0, 2) ( 横 , 縦 ) を 見 る と , 3 が 書き 込ま れ て いま す . 

そし て (3) 1 まほ 意見 ます も : と 天 ひ 。 打 は 結合 し て いま す 、 

次 に (3 , 2) を 見 る と , 5 が 書き 込ま れ , 以下 (5, 2)。 (1, 
1 )。 (1 、 2) で ND マ ー ク で あ も ー1 が 入っ て いま す 。 
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この よう な 1I Pointer と いう リス ト を 使用 し て いま す . 


・ ス キャ ン ラ イン 上 , x 方 向 を スキ ャ ン す る 。. 
も し 進入 する ポリ ゴン が あっ た な ら , 
・1 Pointer に その ナン バ を 付け 加え る . 
・I PEND は リス ト の 中 の 最後 の ポリ ゴン ナン ババ . 
・ こ の ドッ ト を 占有 する ポリ ゴン 数 の カウ ンタ を イン クリ メ 
ント する 。 
・ 進 人 する ポリ ゴン の 陵 線上 で の デプス を 計算 する . 
この デプス も イン クリ メン タル 計算 を 行ない ます . す な わ 
ち , ポリ ゴン が 進入 する 時 に の み , この 平面 式 に て デプス 
を 計算 し , 以降 x 方 向 に 1 進む ご と に DeltaZ と いう 量 を 
イン クリ メン ト し , 加算 に て デプス を 計算 し ます . 
・ 進 入 す る ポリ ゴン が 2 個 以 上 あれ ば , 
・ 同 様 の 処理 を 行ない ます . 
・ENDIF 
・IXEn に 0 を 入れ る . 
・ 以 後 X 退出 に つい て も 同じ 処理 で す . 


・ ノ デプス テス ト を 行なう た め の 値 の 設定 . 


1425 ・T Pointer に より , ドッ ト を 占有 する ポリ ゴン ナン バー を 引き 出 
す . WHILE 文 の 始ま り . WHILE (J. NE. 一 1) 
デプス を イン ク ザ メシ レト す る . 
・ デ プス の 最小 値 を 求め る 処理 。 Memo ] に は 最も デプス の 
小さ い ポ リ ゴ ン ナン バ が 入 る. 
1430 ・ こ こ で Z デ プス テス ト が 完了 し て いま す . 輝度 を 計算 し , 色 ナ 
ン バ よ り デ ィ ス プレ イ に 表示 し ます . 
・ ス キャ ン ラ イン 横 方 向 の ルー プ 終 了 . 
・ 配 列 の 初期 化 
1300・ ス キャ ン ラ イン の ルー プ 終 了 
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以上 で メイ ンプ ログ ラム の 説明 は 終わ り ま す . 


OSUBROUTINE UNIT 
この サブ ルー チン は ベク トル (XY,Z) を 単位 ベク トル 化す る た め の も 
の で す . 特に 説明 は 要ら な いも の と 思わ れ ま す . 


OFUNCTION Shine 
輝度 を 算出 する . ここ で は 光線 ベク トル と 法 線 ベ クト ル と の 内 積 を と る だ 
け に と ど ま っ て いま す 。 

OSUBROUTINE CONSTANT 
ァ ー ッ ー 々 直 変 座標 系 一 正規 透視 座標 系 の 変換 マト リク ス A11 一 A44 お よび 


ァ ー ッ ー る 直 変 座標 系 一 視点 座標 の 変換 マト リク ス AA11 一 AA44 を 求め る . 


OFUNCTION F 
陵 線 と スキ ャ ン ラ イン と の 変 点 の x 値 を 求め る サブ ルー チン . 


OSUBROUTINE NORMAL 
ポリ ゴン 平面 お よび 輝度 平面 の 平面 式 を 求め る ルー チン で す . 


以上 で プロ グラ ム の 説明 を 終わ り ま す . 
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2. 6 変数 名 りり スト 


A11 一 A44 
AA11-AA44 
AK 

ALX-ALZ 
COLOR (9 9 
DELTAX (3, 9 9) 
DELTAZ (9 9) 
DEPTH (9 9) 
FORMUL (4, 
IFLUG 
IPOINT (2, 
IROUND (5) 
IXEN (641) 
IXEX (641) 
IXOC (9 9) 
IXOCNU 
IXSCAN 
IXZEN (9 9) 
IXZEX (9 9) 
IYEN (401) 
IYEX (401) 
IYOC (9 9) 
IYOCNU 
IYSCAN 
IYZEN (9 9) 
IYZEX (9 9) 
N 


9 9) 


1 0 0 ) 





で は ここ に プ ブログ ラム の 主 な 変数 名 を 掲げ その 意味 を 記し ます . 


ター ター る 正規 透視 座標 系 へ の 変換 デー タ . 
ーッ ター る 々 9 視点 座標 系 へ の 変換 デー タ . 
視角 を 定め る パラ メー ターKK. 
光源 の 座標. 

ポリ ゴン の 色 ナ ン バ . 

セグ メン ト の X 増分 値 . 

セグ メン ト の Z 増 分 値 . 
ポリ ゴン の デプス . 

ポリ ゴン 平面 式 の 定数 . 

ポリ ゴン クリ ッ ピ ング に 用 いる 変数 . 
双方 向 ポ イン タ . 

頂点 値 を 参照 する た め の 配 列 . 

X 進入 テー ブル . 

X 退出 テー ブル . 

X 占有 テー ブル . 

ピク セス を 占有 する ポリ ゴン 数 . 

スキ ャ ン ラ イン 上 の ドッ ト 番 号 . 

X 進入 テー ブル ". 

X 退出 テー ブル ". 

Y 則 入 テ ー プ ブル 。 

Y 退出 テー ブル . 

Y 占有 テー ブル . 

スキ ャ ン ラ イン を 占有 する ポリ ゴン 数 . 
スキ ャ ン ラ イン 番号 . 
ミン ゲ 

Y 退出 テー ブル /。 

ボリ ゴン 総数 . 
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POINTX (3, 99) ポリ プン の X 座 標 値 . 
POINTY (3, 99) ポリ ゴン の Y 護 標 値 . 

た OTN プ ング ペ 97 9 すす) ボ ポリ ゴン の ZZ 座標 値 . 
POINXX (3, 99) 入力 する 際 の ポリ ゴン 双 座 標 値 . 
POINYY (3, 99) 入力 する 際 の ポリ ゴン X 座 標 値 
POINZZ (3, 99) 入力 する 際 の ポリ ゴン Z 上 座標 値 
READEFEILFE ポリ プン デー タ が 書き 込ま れ て いる ファ イル . 
RYOSEN (3, 99) セグメント 両端 の x 値 . 
SFORMU (4, 9 9) 輝度 平面 の 平面 式 係数 
SHINE (きけ すす) 輝度 . 

SHINED (3, 99) 輝度 . 

ZCOLOR (9 9) ポリ プン カラ ー ナ ング ババ. 


5. 2. 7 ブロ グラ ム の 改造 と 応用 


プロ グラ ム の 改造 と し て 最も 簡単 な 所 は , 輝度 を 計算 する ShineZ と いう フ 
ァ ン クシ ョ ン 文 で し ょ う . ここ で は 単に 2 つの ベク トル の 内 積 を 計算 し て いる 
だ け で す が , 前 に 述べ た 数 式 モ デル を 使っ た シェ イデ ィング を 用 いる こと に よ 
っ て 本 格 的 な シェ イデ ィング が 可能 と な り ま す . さら に ここ で は 輝度 を 補間 し 
て いま す が , 法 線 ベク トル を 補間 する よう に し て も よい で し ょ う . 

この プロ グラ ム で は ポリ ゴン 数 は 4 9 まで と な っ て いま す が , マイ コン の メ 
モ り が 許す な ら ば 配列 中 の (99) を (999) に , (100) を (1000) 
等 に 変更 する こと に より , 4 9 9 個 の ポリ ゴン が 処理 可能 と な り ま す . 

応用 と し て , アニ メー ショ ン の 作成 が 考え を られ ます . 筆者 は この プロ グラ ム 
を 使い , 一 万 個 の ポリ ゴン に て 架空 の 都市 デー タ を 作成 し , 都市 内 で 視点 を 自 
由 に 動か し , 8 ミリ カメ ラ で コマ 撮り を 行なう こと に よっ て アニ メー ショ ン を 
作成 し まし た . また , 三次 元 関数 を ポリ ゴン に 分 割 し て 表示 する こと も お も し 
ろ い と 思わ れ ま す . 


266 


O フ ォ ー ト ラン プロ グラ ム 


C 


1000 


3Dimensional 9raphics By Koji-!tou 

COMMON /EFEA/XF,YF,ZF,XA,YA,ZA,AK ,H 

COMMON /TVTP/A11.A12.A13.A14.A21、A22.A23.A24.A31、A32.A33,A34 
1.A41.A42.A43.A44 

COMMON /MAT/AA11.AA12.AA13.AA14.AA21.AA22.AA23.AA24.AA31 ,AA32 
1 .AA33.AA34 AA41 ,AA42.AA43,AA44 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
INTEGERw2 
INTEGERx2 
INTEGERx4 


PointX(3.99).PolntY(3.99) .PolintZ(3,99) 
PoinXX(3.99) ,PoinYY(3.99) ,PoinZZ(3.99) 
Formul(4.99) .SFormu(4.99) ,Shine(3.99) ,ShineD(3,99 ) 
IYEn(401),IYExit(401 ) ,IYZEN( 99 ) , IYZEX( 99 ) 
IXEn(641 ) ,.IXEx1it(641 ) , IXZEN( 99 ) , IXZEX( 99 ) 
XMax( 99 ) 、XMin(99) ,YMax(99) ,YMin(99) 
Ryosen(3.99),DeltaX(3.99),DeltaZ(99) 

XDD( 3 ) , YDD( 3 ) , ZDD( 3 ) , SDD( 3 ) , Depth( 99) 
IYOc(99),IXOc(99) , IRound(5) ,IFlug 
ZColor( 99 ) , IREM( 99 ) 
IP(2.2),IPolint(2.100),Color(99) 


CHARACTERx30 READFILE 

DATA IRound/3,1 .2.3、1/,ICOUNT/0/,NEND/0/, 1/1/ TIRND/1/ 

" CLS " is an external function of machine language for 
display clear and Set 640x400 graphics mode. 

CALL CLS 

WRITE(*、'(A)') ' Shading? (Yes=1 ,Nos0 ) " 

READ(*, "(IT1)') IOK 

半 差 送 送 洋 基 基 天 基 。 INPUT DATA 省 湊 湊 光 

WRITE(X,。'(A)') ' く ----XFROM---- > く <----YFROM----> く ----ZFROM- - - - > " 
READ(*,'(3E15.7)') ZF.XF,YF 


WRITE(*,。'(A)') ' <--ーー- XAT----- > く --ーーー YAT--- -- > く --ーーー ZAT-----〉>・ 
READ(x,*(3E15.7)") ZA,XA,YA 
WRITE(w。'(A)') ' <---ーー- K- ----- > く --ーーーー H- ---ーー >* 


READ(\X,'(2E15.7)') AK,H 
IF (IOK.EQ. 1 ) THEN 


WRITE(X,'(A)') ' く ----Li19htX--- > く ーー-- 上 LightY---> く ニニ --LightZ--->* 


READ(x*,'(3E15.7)') ALZ.ALX, ALY 

ELSE 
ALX=123.456 
ALY=234.567 
ALZ=345.678 

ENDIF 

WRITE(X、'(A)') ′ READ FILE NAME ?" 

READ(x,。'(A)' ) READFILE 

OPEN(5.FILE=READFILE,STATUS= '0LD" ) 

READ(5, "(13) ' ,.END= 2 ) ZColor( 1 ) 

DO 1000 Js1.3 
READ(5,'(3E15.7)') PolnZZ(J, 1 ) PoinXX (J, 1 ) ,PoinYY(J,1 ) 
READ(5,'(3E15.7)') ANZ.,ANX, ANY 
CALL UNIT(ANX 、ANY , ANZ ) 
ALXX=ALX-PoinXX(J, 1 ) 
ALYY=ALY-PolinYY(J,1) 
ALZZ=ALZ-PolinZZ(J, 1 ) 
CALL UNIT(ALXX , ALYY ,ALZZ ) 
ShineD(J,』)=ShineZ(ALXX 、ALYY , ALZZ , ANX , ANY , ANZ ) 

CONT INUE 

1=T+1 

GOTO 1 

CLOSE( 5 ) 

CALL CONSTANT 

NN= I - 1 

IYOCNu=0 

ICOUNT=0 

WRITE(X、'(A)') *: PASS 1 START* 

※ 導 送 ※※※※※ PASG ] 類 ※※※ 光 区 

deleate and create Polygons 

N= 1 

DO 1005 Ii=i,NN 
Color (N) =ZColor(1I ) 

IFlug=0 

DO 1010 Js1.3 
X=PoinXX(J,1 ) 
Y=PoinYY(J,1!) 
Z=PoinZZ(J、1 ) 
WR=A13XX+A23XY+A33xZ+A43+AK 
IF(WR.EQ.0) STOP 
PointX(J,N)=(A11xXX+A21xY+A31xZ+A41 ) /WR 
PointY(J,N)=(A12xXX+A22xXY+A32XZ+A42 ) /WR 
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1010 


1025 


268 


1 


PointZ(J.N)=(A13XX+A23xY+A33xZ+A43) /WR 
IF((PointZ(J,N) .LT.0) .OR.(PointZ(J,N) .GT . 1 ) ) THEN 
if this point exist between Viewpoint and Vieplane 
Or behind the Viewpoint 
IFlug=IFlug+1 
MemOJ=J 
ENDIF 
Shine(J,!1)=ShineD(J,1 ) 
CONT INUE 
XMax(N)=AMax1(PointX(1.N) ,PointX(2.N) ,PointX(3.N) ) 
XMin(N)=AMin1(PointX(1.N) ,PointX(2.N) ,PointX(3,N) ) 
YMax(N)=AMax1(PointY(1.N) ,PointY(2.N) ,PointY(3,N) ) 
YMin(N)=AMin1(PointY(1.N) ,PointY(2.N) ,PointY(3,N) ) 
IF(((XMax(N) .GT .-1.5) .AND.(YMin(N) .GT .-1 ) 、AND.(XMin(N) .LT.1.5) 
AND.(YMin(N) .LT.1) .AND.(IFlug.EQ. 0 ) ) .0R. (IF1ug.NE.3) ) THEN 
IF(IFlug.NE.0 ) THEN 
DO 1015 JJ=1.,3 
XDD(JJ)=AA1 1XPO1inXX(JJ。T)+AA21xPOinYY(JJ,T)+AA31 テ 
PoinZZ(JJd。 エ )+AA41 
YDD(JJ)=AA12XPOinXX(JJ, 1 )+AA22xPolinmnYY(JJ,T)+AA32% 
PoinZZ(JJ.T)+AA42 
ZDD(JJ)=AA13xPOinXX(JJ。 1 )+AA23xPOinYY(JJ、T)+AA33※ 
PolinZZ(JJ,T)+AA43 
SDD( JJ ) =ShineD(JJ,! ) 
CONT INUE 
IF(IF1lug. EQ . 2 ) THEN 
if two pojints exist between viepoint and vieplane 
DO 1020 JJs1,3 
IF(ZDD( JJ ) . GT .H) MemoJ=JJ 
CONT INUE 
X1 =XDD( IT Round (MemoJ+2 ) ) 
X2=XDD( I Round (MemoJ+ 1 ) ) 
Yi =YDD( IT Round (MemoJ+2 ) ) 
Y2=YDD( IRound (MemoJ+1 ) ) 
Z1 =ZDD( ! Round (MemoJ+2 ) ) 
Z2=ZDD( TI Round (MemoJ+1 ) ) 
S1=SDD( I Round (MemoJ+2 ) ) 
S2=SDD( I Round (MemoJ+1 ) ) 
IF(Z1-Z2.EQ. 0 ) THEN 
T=(Z1-H)/1.E-10 
ELSE 
T=(Z1-H)/(Z1 -Z2 ) 
ENDIF 
XDD( IRound (MemoJ+2 ) ) =X1 -Tx(X1i-X2 ) 
YDD( IRound (MemoJ+2 ) ) =Y1 -TX(Y1-Y2) 
ZDD( IRound (MemoJ+2 ) ) =H 
SDD( IRound (MemoJ+2 ) ) =S1 -Tx(S1-S2 ) 


an Other 1ine 

X1 =XDD( I Round (MemoJ ) ) 

Y1=YDD( IRound (MemoJ ) ) 

Z1 =ZDD( ! Round (MemoJ ) ) 

S1 =SDD( I Round (MemoJ ) ) 

IF(Z1-Z2.EQ. 0 ) THEN 
T=(Z1-H)/1.E-10 

ELSE 
T=(Z1-H) /(Z1 -Z2 ) 

ENDIF 

XDD( IRoumnd (MemoJ ) ) =X1-TX(X1-X2) 

YDD( IRound (MemoJ ) ) =Y1 -Tx(Y1-Y2) 

ZDD( I Round (MemoJ ) ) = 日 

SDD( IRound (MemoJ ) ) =S1 -Tx(S1-S2) 

DO 1025 JJs1 , 3 
PointX(JJ,N) =HwXDD( JJ)/ZDD( JJ)/AK 
PointY(JJ,N) =HwYDD(JJ)/ZDD(JJ)/AK 
PointZ(JJ,N) = 1 -H/ZDD( JJ ) 
Shine(JJ,N)=SDD( JJ ) 

CONT INUE 

ELSE 

iflugs1 

One Polnt exist between viepojint and vieplane 

X1 =XDD( 1IRound (MemoJ+2 ) ) 

Y1 =YDD( 1Round (MemoJ+2 ) ) 

Z1 =ZDD( IRound (MemoJ+2 ) ) 

S1 =SDD( IRound (MemoJ+2 ) ) 

X2=XDD( Round (MemoJ+1 ) ) 

Y2=YDD( ! Round (MemoJ+ 1 ) ) 

Z2=ZDD( IROound (MemoJ+1 ) ) 

S2=SDD( [Round (MemoJ+1 ) ) 

IF(Z1-Z2.EQ. 0 ) THEN 





Ts(Z1-H)/1.E-10 


SE 

T= (Z1-H)/(Z1-Z2 ) 
ENDIF 
X11=X1-TxX(X1-X2) 
Y11=Y1-Tx(Y1-Y2) 

を Z1 1 = 日 

S1 1 =S1-Tx(S1-S2 ) 

XDD( IRound(MemoJ+ 1 ) ) =X1 1 

YDD( I Round (MemoJ+ 1 ) ) =Y1 1 

ZDD( ! Round (MemoJt 1 ) ) = 日 

SDD( IRound (MemoJ+1 ) ) =S1 1 

DO 1030 JJs1 ,3 
PolntX(JJ,N) =HwXDD( JJ ) /ZDD( JJ) /AK 
PointY(JJ,N) =HxwYDD( JJ ) /ZDD( JJ)/AK 
PointZ(JJ,N) = 1 -H/ZDD( JJ ) 
Shine(JJ,N) =SDD( JJ) 

1030 CONT INUE 
XMax(N)=AMax1(PolntX(1.N),PointX(2.N) ,PointX(3.N) ) 
XM1In(N)sAM1n1(PolntX(1.N) ,PointX(2,.N) ,PolntX(3.N) ) 
YMax(N)=AMax1(PointY(1.N) ,PointY(2.N) ,PointY(3、N) ) 
YMIn(N)=AMIn1(PointY(1,N),PointY(2.N),PoimtY(3,N) ) 
IF((XMax(N) .GT.-1.5).AND.(YMax(N) .GT .-1 ) .AND.(XMin(N) .LT. 

1 1 .5) .AND.(YMIn(N) .LT.1 ) ) THEN 
DO 1035 Js1.3 
PointX(JJ,N)=PointX(JJ,N)x212+320 
PointY(JJ,N)=PointY(JJ,N)x199+200 


1035 CONT INUE 
CALL NORMAL(PointX(1.N),PointY(1.N) ,PointZ( 1 .N) , 
1 PointX(2.N) ,PolintY(2.N) ,PolntZ(2.N) ,PointX(3,N) , 
1 PointY(3.N) ,PolintZ(3,.N) ,FormuL( 1 .N) ,FormuL( 2 ,N) , 

1 FormuL(3.N) ,FormuL し (4.N) ) 


CALL NORMAL(PolintX( 1 ,N) 、PolntY(1.N) ,Shine(1.N) 。 


1 PolintX(2.N) ,PointY(2,.N) ,Shinme(2.N) ,PointX(3.N) , 
1 PointY(3.N) ,Shine(3.N) ,SFormu( 1 ,N) , SFormu( 2.。N) 。 
1 SFormu(3,N) ,SFormu(4,N) ) 


IF(Formu1(3.N) 、EQ. 0 ) THEN 
DeltaZ(N)=-Formul1(1.N)/(Formul1(3.N)+1.E-1 0 ) 
ELSE 
DeltaZ(N)=-ForWul(1.N)/(Formu1(3。N) ) 
ENDIF 
DO 1040 JJs1.,3 
IF(PointX(JJ,N) .EQ.0) PointX(JJ,N) = 1 
IF(PointY(JJ,N) .EQ.0) PojintY(JJ,N)=1 
1040 CONTINUE 
XMax(N)=AMax1(PointX( 1 .N) ,PointX(2,N) ,PointX(3。N) 
XMin(N)=AMin1(PointX(1.N) ,PointX(2.N) ,PointX(3,N) 
YMax(N)=AMax1(PointY(1.N) ,PointY(2.N) ,PointY(3,N) 
YMin(N)sAM1nl(PointY(1.N) ,PointY(2.N) ,PointY(3.N) 
DO 1045 JJs1.,3 
IF(PolntY(IRound (JJ+2 ) ,N) -PointY(JJ,N) 、EQ.C ) THEN 
DeltaX(JJ,N)=-(PointX(IRound (JJ+2 ) ,N) -PointX(JJ,N) )/ 


) 
) 
) 
) 


1 FtY も 間 科 <. 
DeltaX(JJ,N)=-(PointX(IRound (JJ+2 ) 。N) -PointX(JJ。N) )/ 
1 (PointY(IRound(JJ+2 ) ,N) -PointY(JJ。N) ) 
ENDIF 
1045 CONT INUE 
mee 細 eTAT Formul1(3,N)=Formul(3.N)+1 .E-10 
ミミ IN+ 
ENDIF 


X1=XDD( IRound (MemoJ ) ) 
Yi =YDD( ! Round (MemoJ ) ) 
Z1 =ZDD( IRound (MemoJ ) ) 
S1 =SDD( I Round (Memoj ) ) 
IF(Z1-Z2.EQ. 0 ) THEN 
T=(Z1-H)/1.E-10 
ELSE 
T=(Z1-H) /(Z1 -Z2 ) 
ENDIF 
X22=X1-Tx(X1-X2 ) 
Y22=Y1-Tx(Y1-Y2) 
Z22=H 
S22sS1 -Tx(S1-S2 ) 
XDD( IRound (MemoJ+ 1 ) ) =X22 
YDD( IRound (MemoJ+ 1 ) ) =Y22 
ZDD( I Round (MemoJ+1 ) ) =H 
SDD( IRound (MemoJt1 ) ) =S22 
XDD( IRound (MemoJt2 ) ) =X11 
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1110 


270 


1100 


1205 


1210 


1215 


1220 


MeOJ=J 
ENDIF 
CONT INUE 
IF (Memo . EQ . 2 ) THEN 
IF(PointY(1,!) .EQ.PoinmtY(2.1 ) ) THEN 
Ryosen(2.I)sF(PointX(2.1),PointY(2。1),PointX(3、1 ) 、 
PointY(3,1! ) ,PolintY(2.1 ) ) -DeltaX( 2,1 ) 
Ryosen(3.!)=F(PolintX(3.1) ,PolntY(3,1)。PolintX( 1.1 ) , 
PointY(1,.!),PointY(1.1))-DeltaX(3,1 ) 
IREM( ! ) = 1 
ENDIF 
IF(PointY(2.1) .EQ.PointY(3,1 ) ) THEN 
Ryosen( 1.1)=F(PointX(1,1),PointY(1.1),PointX(2.1 ) 
PointY(2.,1!),PoinmtY(2。1) )-DeltaX( 1,1) 
Ryosen(3,1)=F(PointX(3.1),PointY(3.1),PointX(1.,1 ) 。 
PointY(1.1).PointY(3.1 ) )-DeltaX(3,1) 
IREM( 』 ) =2 
ENDIF 
、』F(PolntY(3。! ) .EQ.PointY( 1 , 1 ) ) THEN 
Ryosen(1,.1)=F(PointX(1.1),PointY(1,1T),PolntX(2,1) , 
PointY(2.1),PolntY(1.1))-DeltaX(1.,1) 
Ryosen(2.1)=F(PointX(2.I),.PolntY(2.1) 、PointX(3.1! ) , 
PointY(3.1),PolintY(3.1))-DeltaX(2.1!) 
IREM( ! ) =3 
ENDIF 
ELSE 
Ryosen( IRound (MemoJ ) , ! ) =F(PointX( ITRound (MemoJ ) 、! ) 。 
PointY( IROund (MemoJ ) , ! ) ,、PointX(MemoJ, 】 ) ,PolntY(MemoJ,1 ) , 
PojintY (MemoJ, 1 ) ) -DeltaX( TIRournd (MemOoJ ) , ! ) 
RyoSen(MemoJ, 1T)=F(PointX( IROund (MemoJ+2 ) , ! ) 。 
PointY( ITRound (MemoJ+2 ) , ! ) ,PointX(MemoJ, 1 ) ,、PointY(MemoJ, 1! ) , 
PointY(MemoJ , ! ) ) -DeltaX(MemoJ, 1 ) 
IREM( ! ) = IROound (MemoJt2 ) 
ENDIF 
ENDIF 
CONT INUE 
WRITE(X。'(A)') ' PASS 2 END* 


半 基 送 江 基 CaAIUC1at1n9 Of 1yentYy , 1yGX 1 ※※※※※ 
DO 1200 1!=1,N 
IF(YMax( 1!) .GT.400 ) THEN 
IYMax=400 
ELSE 
IF(YMax( ! ) .LT . 1 ) THEN 


IF(YMax( 1 ) .LT .1 ) THEN 
IYMaxs 1 
ELSE 
IYMaxsIFIX(YMax(I ) ) 
ENDIF 
ENDIF 
IF(YMin(1! ) .LT . 1 ) THEN 
IYMins 1 
ELSE 
IF(YMin( 1 ) .GT .400 ) THEN 
IYMins400 
E 


LS 
IYM1in=IFIX(YM1n(1!) ) 
ENDIF 
ENDIF 
IF(IYEn( IYMax ) . EQ 、 0 ) THEN 
IYEn(IYMax)=【! 
ELSE 
K=IYEn( TIYMax ) 
IF(IYZEN(K) .EQ.0) GOTO1210 
K= I YZEN(K ) 
GOTO01205 
IYZEN(K ) = 1 
ENDIF 
IF(IYEx1it(IYMin ) .、EQ . 0 ) THEN 
IYExit(IYMIn) =1 
ELSE 
KsIYExit(IYM1n) 
IF(IYZEX(K) .EQ.0) GOTO 1220 
K= IYZEX(K) 
GOTO1215 
IYZEX(K)=1 


YDD( IRound (MemoJ+2 ) ) =Y11 
ZDD( I Round (MemoJ+2 ) ) =Z1 1 
SDD( I Round (MemoJ+2 ) ) =S1 1 
DO 1050 JJs1.3 
PointX(JJ,N) =HwXDD (JJ) /ZDD( JJ ) /AK 
PointY(JJ,N) =HwYDD( JJ ) /ZDD( JJ ) /AK 
PointZ(JJ,N) = 1-H/ZDD( JJ ) 
Shine(JJ,N) =SDD( JJ ) 
1050 CONT INUE 
Color(N)=ZColor(1! ) 
ENDIF 
ENDIF 
DO 1055 JJs1,3 
PointX(JJ,N) =PointX(JJ,N)x212+320 
PointY(JJ,N)=PolntY(JJ,N)x199+200 
1055 CONT INUE 
CALL NORMAL(PolintX( 1 .N) ,PolintY(1.N) 、PointZ( 1.N), 
1 PointX(2.N) ,PointY(2.N) ,PolntZ(2.N) ,PointX(3.N) , 
1 PointY(3.N) 、PolintZ(3.N) ,FormuL( 1 ,N) ,FormuL( 2 ,N) , 
1 FormuL(3.N) ,FormuL( 4,N) ) 
CALL NORMAL(PolintX(1.N) ,PointY(1.N),Shine( 1.N) , 
1 PointX(2.N) ,PolintY(2.N) ,、Shine(2.N) ,PointX(3,N) , 
1 PointY(3.N) ,Shine(3.N) ,SFormu( 1 ,N) ,SFormu( 2.N) , 
1 SFormu(3.N) ,SFormu(4.N) ) 
IF(Formul1(3.N) .EQ. 0 ) THEN 
DeltaZ(N)=-(Formul(1.N) )/(Formul(3.N)+1 .E-1 0 ) 


LSE 
DeltaZ(N)=-Formul(1.N)/Formul1(3,N) 
ENDIF 
DO 1060 JJs1,3 
IF(PolntX(JJ,N) .EQ.0) PointX(JJ,N)=1 
IF(PointY(JJ,。N) .EQ、0 ) PolmntY(JJ,N)=1 
1060 CONT INUE 
XMax(N)=AMax1 (PointX( 1 .N) 、PolintX(2.N) ,PointX(3.N) ) 
XMin(N)=AMin1(PolintX(1.N) ,PolntX(2.N) 、PolintX(3.。N) ) 
YMax(N)=AMax1(PointY(1.N) ,PolntY(2,N) ,PointY(3,N) ) 
YMin(N)=AMin1(PointY(1.N) PojintY(2.N) ,PolintY(3,N) ) 
DO 1065 JJs1.3 
IF(PointY(1IRounmd (JJ+2 ) 。、N) -PolintY(JJ,N) .EQ. 0 ) THEN 
DeltaX(JJ,N)=-(PointX(IRound (JJ+2 ) 、N) -Pol ntX(JJ。N) ) / 
(PolintY(IRound (JJ+2 ) 。N) -PointY(JJJN)+1 .E-10 ) 
LSE 


ーー 


DeltaX(JJ.N)=-(PointX( IROound (JJ+2 ) 。N ) -PointX(JJ,N) )/ 
(PointY(IRound (JJ+2 ) , N) -POintY (JJ,N) ) 
ENDIF 
1065 CONT INUE 
Formul(3.N)=Formul(3,N)+1 .E-10 
ミ N キ 
ENDIF 
1005 CONTINUE 
N=N- 1 
WRITE(x,'(A)') ' PASS 1 END* 
WRITE(x,'(A)') * PASS 2 START'" 
C XXWK※ Ryos en 半 半 導 肉 江 基 
DO 1100 !=1,.N 
IF(YMax( 1 ) .GT .400 ) THEN 
DO 1105 Js=1,.3 
IF(PolintX(J, 1 ) .NE.PointX(1IRound(J+2 ) , ! ) ) THEN 
Ryosen(J,1)=(400-PolntY(J,1) )/ 
1 (PointY(J。1)-PointY(1IRound(J+2 ) 1 )+1.E-10)※ 
(PointX(J,!)-PointX(IRound(J+2 ) , T ) )+PoOintX(J。1) 
ELSE 
*Ryosen(J,1)=PointX(J,1) 
ENDIF 
SIGN1=400-PointY(J,!) 
SIGN2s400-PointY(IRound(J+2 ) , ! ) 
IF(SIGN1 .EQ.SIGN(SIGN1 、SIGN2 ) ) THEN 
C if this 1ine does not have an ed9ge of Se9ment . 
RyoSen(J,!)=0 
IREM( ! ) =J 
ELSE 
Ryosen(J,1)=Ryosen(J,!』)-DeltaX(J,1 ) 
ENDIF 
1105 CONT INUE 
ELSE 
Memos0 
DO 1110 Js=1.3 
IF(YMax( ! ) .EQ.PointY(J, 1 ) ) THEN 
MemO=MemO+ 1 


ーー~ 


ーー 
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ENDIF 
1200 CONTINUE 
WRITE(X。'(A)') ' PASS 3 START・ 
C 共著 基 光 光 基 1aYOG 1OOP Of jiySCam  ※※%※% 
DO 1300 IYSCAN=400,1。-1 
基 半 湊 基 着 CaIUC]1atim9 Of j1yYOC  ※※%%※※※ 
IF(IYEn( IYSCAN) . NE. 0 ) THEN 
IYOcC(IYEn(IYSCAN) ) = 1 
IYOCNus 』 YOCNu+ 1 
IF(IYZEN( IYEn(』 YSCAN) ) . NE . 0 ) THEN 
Ks (IYEn( I YSCAN ) ) 
IYOCNu= ! YOCNu- 1 
1305 IF(K.EQ.0) GOTO 1310 
IYOc(K) = 1 
IYOCNu= I YOCNu+ 1 
K=I YZEN(K ) 
GOTO1305 
1310 ENDIF 
ENDIF 
IF(IYExit(IYSCAN) . NE . 0 ) THEN 
IYOc(IYExit(IYSCAN) ) =0 
IYOCNu= 1 YOCNu- 1 
IF(IYZEX(IYExit(IYSCAN) ) . NE . 0 ) THEN 
KsIYEx1t(IYSCAN ) 
IYOCNu= I YOCNu+ 1 
1315 IF(K.EQ.0) GOTO 1320 
IYOcX(K)=0 
IYOCNu= I YOCNu- 1 
KsIYZEX(K ) 
GOTO1315 
1320 ENDIF 
ENDIF 
W 識 まま 人 K4 才 "(AA.213)') ′ 9CANLINE 、、。、。。。。。。 "ITYSCAN, TI YOCNU 
1=0 
1YOCCo= ! YOCNu 
IF(IYOCNu. EQ . 0 ) 1!=N 
1325 IF(I.EQ.N) GOTO 1330 
1=l+1 
IF(IYOC( 1 ) .EQ. 1 ) THEN 
DO 1340 Js1.,3 
IF(Ryosen(J,1) 、NE.0) Ryosen(J, 1 )=RyoSen(J, 1)+DeltaX(J,1 ) 
1340 CONT INUE 
DO 1350 Js=1.,3 
IF((IYSCAN.LT.PolintY(J, 1 ) ) .AND. (TEYSCAN.LT . 


1 PointY(IRound (J+2 ) , 1 ) ) . AND . (Ryosen(J, 1』) .NE. 0 ) ) THEN 
K= IREM( 1 ) 
IREM( 1 ) =J 
Ryosen(K,1)=(IYSCAN-PointY(K、1! ) )/ 
1 (PointY(K,!)-PointY( IROound(K+2 ) , 1 )+1 .E-10 ) テ 
1 (PointX(K、! )-PointX(IRound(K+2 ) , 1 ) )+PointX(K, 1 ) 
Ryosen(J,。1 )=0 
ENDIF 
1350 CONT INUE 
C 類 半 半 ※ 送 基 。 fidi1m9 Of XaX、X 大 1 ※ 光 区 洋 基 
ZXMin=30000 


ZXMax=-30000 

DO 1355 Js1.,3 
IF((Ryosen(J,1) .LT.ZXMin ) .AND、(Ryosen(J,1).NE.0) ) ZXMin 

1 =Ryosen(J,】) 
IF(Ryosen (J, 1 ) .GT .ZXMax ) ZXMax=Ryosen(J,1 ) 
1355 CONT INUE 

IF(ZXMax .GT .640 ) THEN 
IXMax=640 

ELSE 
IF(ZXMax .LT .0 ) THEN 


IXMax=IFIX(ZXMax )+1 
ENDIF 
ENDIF 
IF(ZXMin.LT.1 ) THEN 
IXMins 1 
ELSE 
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1360 


1365 


1405 


1410 


IF(ZXMin.GT .640 ) THEN 
IXMin=s640 


ELSE 
IXM1n=IFIX(ZXMin ) 
ENDIF 


ENDIF 
IF(IXEn( IXMin ) 、EQ . 0 ) THEN 
IXEn(IXMin)=! 
E 


る 

K=s IXEn( IXM1n ) 

IF(IXZEN(K ) . EQ.0 ) GOTO 1365 
K= IXZEN(K ) 

GOTO1360 

IXZEN(K) = ! 

ENDIF 

IF(IXExit(IXMax ) .、EQ . 0 ) THEN 
IXExit(1IXMax ) = ! 

ELSE 
K=IXEx1it( IXMax ) 

IF(IXZEX(K) .EQ.0) GOTO 1375 
K= IXZEX(K ) 
GOTO1370 
IXZEX( K ) = 1 
ENDIF 
ENDIF 
GOTO 1325 
※※※※※※ WHILE STATMENT END XX%※※※※ 
IXocNU=0 
IPoint(1.0)=0 
IPojint(2、0 )=-1 
IPEND=0 
※※※※※※※ 。 1aYdG 1OOP Of 1XSCaAT  ※※※※※※ 
DO 1400 IXSCAN= 1 . 640 
革 送 送 送 基 。 CalUClatin9 Of iPOIntGT  ※※ 革 % 基 % 
IF(IXEn( IXSCAN ) . NE . 0 ) THEN 
Number=IXEn( IXSCAN ) 
IPoint(2.1IPEND ) =Number 
IPoint(1.Number ) =IPEND 
IPoint(2.Number ) =- 1 
IPEND=Number 
IXocNU= IXocNU+ 1 
IF(Formul(3.Number ) . NE . 0 ) THEN 
Depth(Number)=-(IXSCANxFormul(1、Number )+TYSCANxFOrmul 
(2.Number )+FOrmul(4、Number ) ) /Formul (3、Number ) -DELTAZ 
(Number ) 
ELSE 

Depth(Number ) = 1 
ENDIF 
IF(IXZEN(Number ) . NE .0 ) THEN 

Ks IXZEN( Number ) 

IF(K.EQ.0) GOTO 1410 
IPoint(2.1PEND ) =K 
IPoint(1.K)=IPEND 
IPoint(2.K)=-1 
[PEND=K 
IXocNU= IXoOcNU+ 1 
IF(Formul1(3.Number ) .NE. 0 ) THEN 

Depth(K)=-(IXSCANxFormul(1、K)+IYSCANxFoOrmu1(2.K) 
+Formul(4.K) )/Formul(3.K)-DELTAZ(K ) 
ELSE 
Depth(K)=1 
ENDIF 
K= IXZEN(K) 
GOT01405 
ENDIF 
ENDIF 
IXEn( IXSCAN) =0 
IF(IXExit(IXSCAN) . NE . 0 ) THEN 
Number=IXExit(IXSCAN) 
IF(IPoint(2.Number ) 、NE.- 1 ) THEN 
IPoint(2,.IPoint(1.Number ) ) =IPoint(2.Number ) 
IPoint(1、1IPoint(2.Number ) ) = IPoint( 1 、Number ) 
LSE 


IPEND= IPoint( 1 .Number ) 
IPoint(2.,1IPEND ) = - 1 
ENDIF 
IPoint( 1 .Number ) =0 
IPoint(2.Number ) =0 
1 XocNU= !I XocNU- 1 
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Depth(Number)=-10000 
IF(IXZEX(Number ) 、NE . 0 ) THEN 
K= IXZEX (Number ) 
1415 IF(K.EQ.0) GOTO 1420 
IF(IPojint(2.K) .NE.- 1 ) THEN 
IPoint(2.IPoint(1.K) )=IPoint(2.K) 
IPoint(1.IPoint(2.K) ) =IPoint(1.K) 
LSE 


S 
IPEND=IPoint(1.K) 
IPoint(2.1IPEND ) = - 1 
ENDIF 
IPoint(1.K)=0 
IPoint(2.K)=0 
IXocNU= 1 XocNU- 1 
Depth(K)=-10000 
K= IXZEX(K ) 
GOTO 1415 
1420 ENDIF 
ENDIF 
IXExit(IXSCAN) =0 
Amin=s10000 
MemoJ=s0 


S=0 
JsIPoint(2.0) 
1 425 IF(J.EQ.-1) GOTO 1430 
Depth(J)=Depth(J)+DELTAZ(J) 
C 類 着 光 GDPth GSt  ※※※※ 革 
IF((Depth(J) 、LT.Amin) .AND.(Depth(J) .GE. 0 ) .AND . (Depth(J) 
1 .LE . 1 ) ) THEN 
C Memoj 1iS a polygon number Of miInimum depth 
MemOJ=J 
AminsDepth(J) 
ENDIF 
J=IPOint(2,J) 
GOTO 1425 
1430 IF (MemoJ.NE. 0 ) THEN 
IF(IOK.EQ. 1 ) THEN 
IRND=MOD( 125xIRND . 8192 ) 
RND=FLOAT(IRND)/8192. 
S=-(SFormu( 1 、MemoJ)xFLOAT (IXSCAN)+SFormu( 2 .MemoJ ) xFLOAT 
1 (IYSCAN)+SFOrmu( 4 .MeWOJ ) ) /SFormu( 3.MemoJ)*100 
C ” PSET " is also external function of machine lan9gua9e 
for Set pixel color. 
E CALL PSET( IXSCAN- 1 ,400-1IYSCAN,IBRIGH(RND , S,Color (MemoJ ) ) ) 
LSE 
ーー PSET( IXSCAN- 1 , 400-1IYSCAN.,Col or (MemoJ ) ) 
E 


ENDIF 
1400 CONT INUE 
も 革 半 状 送 基 基 。 1XSCaD 1OOP COnt1mUG 半 類 区 

DO 1500 !』I=1l,N 

IXZEX(!』 1 )=0. 

IXOc( 1 1 )=0 
1500 CONT INUE 
C 半 半 基 状 着 基 1VSCa 1OOP CODt1YUG 半 半 拓 汰 湊 拓 
1300 CONTINUE 

END 


SUBROUTINE UNIT(X,Y,Z) 
A=SQRT ( XXX+YXY+ZXZ ) 
X=X/A 

Y=Y/A 

Z=Z/A 

RETURN 

END 


FUNCTION ShineZ(X1.Y1 ,Z1 .X2.Y2.Z2 ) 
ShineZ=X1 XX2+Y1xY2+Z1xZ2 

RETURN 

END 


SUBROUTINE CONSTANT 

COMMON /EFEA/Xfrom,Yfrom,ZfTOmm, Xat.Yat,Zat.AK,H 

COMMON /TVTP/A11.A12.A13.A14.A21 .A22.A23.A24.A31 .A32 , A33 、A34 
1 .A41.A42.A43.A44 

COMMON /Mat/AA11.AA12.AA13.AA14.AA21 、AA22.AA23.AA24、AA31 .AA32 
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1.AA33.AA34.AA41,AA42.AA43,.AA44 
に まそ コ え 3 MatRIX Dat 人 AA 扶 粒 類 類 捧 拓 基 
XSUB=XfrOmm-Xat 
YSUB=Yfromm-Yat 
ZSUB=ZfrOmW-Zat 
As=SQRT (XSUBwXSUB+ZSUBwZSUB ) 
B=SQRT (XSUBwXSUB+YSUBwYSUB+ZSUBwZSUB ) 
IF(A.NE.0 ) THEN 
COSA=ZSUB/A 
SINA=-XSUB/A 
ELSE 
COSA=0 
る INA=0 
ENDIF 
1F(B.NE. 0 ) THEN 
COSB=A/B 
SINB=YSUB/B 
ELSE 
COSB=0 
SINBs0 
ENDIF 
甘 湊 捧 浴 湊 洗 
AA11=COSA 
AA12=SINAwSINB 
AA13=SINAxCOSB 
AA14=0 
AA21=0 
AA22=COSB 
AA23=-SINB 
AA24=0 
AA31 =SINA 
AA32=-COSAxSINB 
AA33=-COSAwCOSB 
AA34=0 
AA41=-XfrOmwCOSA-ZfrOmwSINA 
AA42=-XfrOmXSINAwSINB-YfromxCOSB+ZfrOmxCOSAxSINB 
AA43=-XfrOmwSINAwCOSB+YfrOmxSINB+ZfromwCOSAxCOSB 
AA44=1 
RETURN 
END 


FUNCTION F(X1.Y1.X2.Y2.YSCAN) 
IF(ABS(YSCAN) . GT . 30000 ) THEN 
AYSCAN=30000 


ELSE 

AYSCAN= IFIX(YSCAN ) 
ENDIF 
F=(AYSCAN-Y1 )/(Y2-Y]1 )x(X2-X1)+X1 
RETURN 
END 


SUBROUTINE NORMAL(X1 .Y1.Z1、X2.Y2.Z2.X3.Y3.Z3.A.B.C、D) 
A=(Y1-Y2)x(Z1+Z2)+(Y2-Y3)*(Z2+23)+(Y3-Y1 )x(Z3+Z1 ) 
B=(Z1-Z2)%(X1+X2)+(Z2-Z3)%(X2+4X3)+(Z3-Z1 )*(X3+X1 ) 
C=(X1-X2)X(Y1+Y2)+(X2-X3)x\(Y2+Y3)+(X3-X1 )%(Y3+Y1 ) 
D=-(AXX1+BXY1+CXZ1 ) 

RETURN 

END 


INTEGER FUNCTION IBRIGH(RND,Shine,IColor ) 
IBRIGH=IColor 

IF (Shine.LT.15) Shines15. 

IF (Shine.LT.(RNDx60 . ) ) IBRIGH=0 

1F (Shine.GT.(70.+RNDx20 . ) ) IBRIGH=7 
RETURN 

END 
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O ア セン ブラ サブ ルー チン | 


0000 CODE SEGMENT 'CODE' 
ASSUME CS:CODE 

PUBLIC CLS 
0000 CLS PROC FAR 
0000 FC CLD 
0001 B8 A800 MOV AX,0A800H 
0004 8E CO MOV ES,AX 
0006 B9 8000 MOV CX.8000H 
0009 BF 0000 MOV DI,0 
000C B8 0000 MOV AX,0 
000F F3/ AB REP STOSW 
0011 B8 B800 MOV AX.0B800H 
0014 8E CO MOV ES,AX 
0016 B9 4000 MOV CX,4000H 
0019 B8 0000 MOV 0 
001C F3/ AB REP STOSW 
001E B5CO MOV CH,0COH 
0020 B4 42 MOV AH, 42H 
0022 CD 18 INT 18H 
0024 B4 40 MOV AH, 40H 
0026 CD 18 INT 18H 
0028 CB DB 0CBH 
0029 CLS ENDP 
0029 CODE ENDS 

END 


0000 CODE SEGMENT 'CODE' 
ASSUME CS:CODE 
PUBLIC PSET 
0000 PSET PROC FAR 
0000 PUSH BP 
0001 8B EC MOV BP,SP 
0003 1E PUSH DS 
0004 0E PUSH CS 
0005 1F POP DS 
0006 BB 003B R MOV BX,OFFSET ARGTBL 
0009 C4 76 0E LES SI ,[BP+14] 
000C 26: 8B 04 MOV AX,ES: [SI] 
000F 89 47 08 MOV [BX+8] , AX 
0012 C4 76 0A LES SI,【[BP+101 
0015 26: 8B 04 MOV AX,ES: [SI] 
0018 89 47 0A MOV 〔[BX+0AH] , AX 
001B C4 76 06 LES SI,[BP+6] 
001E 26: 8B 04 MOV AX,ES: [SI] 
0021 88 07 MOV 〔BX] , AL 
0023 CZ7 47 0C 0001 MOV WORD PTR 〔[BX+0CH] , 1 
0028 CZ7 47 0E 003A R MOV WORD PTR 〔BX+0EH] ,OFFSET PATN 
002D 0E PUSH CS 
002E 07 POP ES 
002F B5 BO MOV CH,0BOH 
0031 B4 45 MOV AH, 45H 
0033 CD 18 INT 18H 
0035 1F POP DS 
0036 5D POP BP 
0037 CA 0C 00 DB 0CAH, 0CH, 0H 
003A 80 PATN DB 80H 
003B 00 00 00 00 00 00 ARGTBL DT 0 
00 00 00 00 
0045 00 00 00 00 00 00 DT 0 
00 00 00 00 
004F 00 00 00 00 00 00 DT 0 
00 00 00 00 
0059 00 00 00 00 00 00 DT 0 
00 00 00 00 
0063 00 00 00 00 00 00 DT 0 
00 00 00 00 
006D PSET ENDP 
006D CODE ENDS 
END 





5・ 3 3 次 元 地形 図 の 入力 ・ 表 示 プ ログ ラム 
5 . < | 。 才 じ 琶 に 


この ブログ ラム は , 本 来 , 山脈 の よう な 形状 を , 三次 元 表示 する た め の も の で 
す . この よう な 立体 は , 曲面 で 囲ま れ て いる わけ で す が , コン ピュ ー タ に デー タ 
と し て 入力 する 場合 に は , ふつ う 数 多く の 平面 で 囲ま れ て いる 図形 と し て 取り あ 
つか う 必 要 が あり ます . この と き , 立体 を 人 手 で 平面 に 分 割 し て , 立体 を 平面 の 
集まり と し て 入力 し よう と し ます と (た と えば , 平面 の 各 項 点 の 座標 を 対 に し て ) 
大 変 な 手間 に な り ま す . この 手間 を 大 は ば に 省く た め に , 立体 の 頂点 を 入力 し て , 
頂点 を 結ぶ 和 槻 線 を 適当 に 計算 し た 後 , 表示 を 行う プロ グラ ム を 作製 し まし た . 

この プロ グラ ム は 大 きく 分 け て 2 つの 部 分 か ら 成 り た っ て いま す . 一 つ は , 頂 
点 の 集合 か ら 和 線 を 引き , 三角 形 の 平面 で 立体 を 構成 する 部 分 , も う 一 方 は 。 そ 
の 立体 を 表示 する た め の , 三次 元 表示 部 分 で す . 

で は , 各部 の アル ゴリ ズム を 説明 し ます . 


5.3。Z2 先 線 決定 アル ゴリ ズム 


ゲル ゴリ ズム に は , 1 つの 制限 が つき ます 。 それは, 目的 に は さしつかえ が な 
い の で す が , 立体 の 各 面 が 1 対 1 に yー? 平 面 に 投影 する と いう こと で す . す な わ 
ち , 真 上 か ら す べ て の 面 が 見 える よう な 形 に な り ま すか ら , 側面 に くぼみ が あっ 
た り , 空間 に 浮か ん だ 立体 に は , 適用 で きま せん . 

この 制限 の た め に , アル ゴリ ズム が 簡単 に な り , プロ グラ ム も それ な り に 早く < 
な る の で す . また , どう し て も 空間 に 浮か ん だ 凸 多 面体 に 応用 する 場合 は , 適当 
な テー? 平 面 に 平行 な 平面 で . その 立体 を 2 分 割 し て や れ ば , この 方 法 が 応用 で き 
ます ) 
この アル ゴリ ズム で は , 各 点 の z 軸 の 値 を 無視 し ます . つま り , すべ て の 点 を 
ァ ー? ヶ 平面 に 投影 し た 形 で 考え て いき ます . この 状態 で 各 点 が 三角 形 の 頂点 に な る 
ょ うに , 網状 に 分 割 す れ ば , 各 頂 点 の 値 も 使っ て , 三次 元 表示 し た と き に , 三角 
形 で 囲ま れ た 矛盾 の な い 立 体 に な る の は , 上 記 の 制限 に よっ て 明らか で し ょ う . 

この プログ ラム は , 2 ステ ッ プ で 三角 形 分 割 を 行ない ます . まず , 与え られ た 
点 を すべ て 含む よう な 凸 多 角形 を つく り ま す . 次 に その 多角 形 の 内 側 へ 次 々 に 適 
当 な 三角 形 を 決め , 必要 な ら ば 新しい 線 を 引く 作業 を 行い ます . その 過程 で 用 い 
る 主 な 表 を 表 1 に 示し ます . PTB は 点 を 管理 する 表 で す . プロ グラ ム に 与え る 
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点 は この 形 で 指定 し ます が , 前 処理 の 段階 と し し て ソー ト し て 用 いま す . LTB は , 
線 を 管理 する 表 で す . 使用 法 は 後に 説明 し ます . 


外周 を 作る 方 法 


与 を られ た 点 列 を すべ て 含む , 凸 多 角形 の 外周 を 作る 方 法 は 次 の と お り で す . 


(1) PTB を X の 小さ い 順に ソー ト し ます . 

(2) PTB の 最初 の 点 を P。(X。, Y。) と し ます . 

(3) P。 か ら , PTB の 下 の 方 の すべ て の 点 に つい て , 線 を 引い た と き の 傾 き 
(Yー Y。) ノ (XーX。) を 求め , そ の 最大 値 を 与え る 点 を 見 つけ P, と し ます . 

(4) P。 と P, の 間 に 線 を 引き , その 線 を し B に 登録 し ます . 

(5) P, を 新しい P。 と し て , (3 を 繰り 返し ます . 

(6) PTB の 終り まで きた ら , PTB の 終り の 点 を P。 と し て , PTB の 上 の 
方 に 向かっ て (3)-(⑮) を 繰り 返し, PTB の 始め まで きた ら 終 り と し ます . 


つま り , ①⑰)ー⑮) の 操作 で , 外周 を 半周 分 作り , (6) で 逆 向 き に 外周 を 作っ て , 残り 
の 半周 を 書き , 外周 を 完成 させ る わけ で す . 
LT B の 登録 法 に つい て は , 次 の 内 部 の 三角 形 分 割 で 説明 し ます . 
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LTB 


@PTB は XX の 値 を 用 いて , 
使用 前 に ソー ト し ます . 


@ 点 を PTB の イン デック ス 
値 で 指定 し ます . 

@ 頂 点 1 の 値 NI 上 は , その 
値 を も つ 線 が 外周 の 一 部 で 
ある こと を 示し ます . 

@ INF は 不定 値 , 点 が 確定 
し て いな いこ と を 示し ます 。. 











2 内 部 を 三角 形 分 割 する 方 法 

この 部 分 は , 本 プロ グラ ム の 中 で 最も 複雑 な 部 分 で す . 三角 形 で 分 割 し た 時 に , 
新しい 線 分 が 他 の 線 分 と 変 又 し て は いけ な いし , 三角 形 で な い 部 分 (例え ば 四辺 
形 ) が 残っ て も 困り ます . その た め に , 線 分 と 三角 形 を 。 し っ か り 管 理 し な けれ 
ば な り ま せん . その た め に ある の が LT B で す . 

LTB は 4 つの 部 分 か ら で き て いま す . 始め の 2 つ は 線 分 の 両端 の 点 を 指定 す 
る の に 用 いま す . 残り の 2 つ は , その 線 分 が 属す る 三角 形 の も う 一 つの 頂点 を 記 
録 す る の に 用 いま す . ふつ う , 1 つの 線 分 は , 2 つの 三角 形 に 属し て いま す ( 図 


お " 
P B ん 


( a ) ba - . お 8 
図 1 
1-a) か ら 机 を 2 つ 使 いま す が , 線 分 が 外周 の と き は , 1 つの 三角 形 に し か 属し ま 
せん ( 図 1-b). そのため, 第 3 番目 の 欄 に は , 使わ な いこ と を 表示 す た め , 定数 
NIL を 入れ て お きま す . 逆 に いえ ば , 第 3 番目 の 欄 に N I し が あれ ば , 外周 の 
線 分 で ある こと が わか り , 他 の 場合 は , 内 部 の 線 分 で ある と わか り ま す . また , 
2 つの 三角 形 の うち 1 つ は 見 つか っ て いる が , も う 1 つ は 見 つか っ て いな いと き 
は , 第 4 番目 の 欄 に , 不定 で ある こと を 示す 定数 I NF を 入れ て お きま す . この 
表 の 意味 を よく 頭 に お いて 次 の よう な 手順 を 読ん を で くだ さい . 
(1) LTB の 上 の 方 か ら , 次 々 に 線 分 に (2) 以 下 の 操作 を 加え ます . 
すでに この 段階 で は , 2 . 1 の 部 分 で 外周 を 形 づ く る 線 分 が 登録 され て いる 
こと に 注意 し て くだ さい 。 また , LTB の 第 4 欄 が INEF で な けれ ば , そ 
の 線 分 は いじ る 必要 が な い の で , ここ で ぬか し て 次 の 線 分 を 操作 し ます . 
(2) 操作 を 加え る 線 分 の 第 3 欄 が N I し で し た ら 他 の すべ て の 点 に 対し て , 
それ 以外 の と き は , 第 3 欄 が 示す 頂点 の 反対 側 に ある 点 に 対し て , 最良 の 
三角 形 を つく る 頂点 を 捜し ます . 
(3) (2⑫) で 求め た 頂点 を LTB の 第 4 欄 に 登録 し ます . そし て 求め た 頂点 と 線 
分 の 両端 に 線 を 引き ます が , すでに 作ら れ た 線 分 と 共通 に な る こと が あり 
ます の で LTB を 調べ , も し 共通 線 分 で し た ら , 共通 線 分 の 第 4 欄 に 該当 
する 頂点 を 登録 し ます し , さも な けれ ば 新しい 線 分 と し て LTB に 登録 し 
ます . 
(4) LTB の 最後 の 線 分 まで (2), (3) の 操作 を ひと と お り 行 な を ば 終わ り で す . 
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簡単 に 書け ば これ だ け で す が , 特に (2) の 項 に 鍵 が いく つか か くさ れ て いま す の 
で 少し 説明 を 加え ます . 

まず , 頂点 を 捜す と き に , すべ て に ある 頂点 の 反対 側 の 点 だ け に 注目 する こと 
で す が , これ は 図 1 - 4 を 見 て いた だ けれ ば お わか り の よう に 2 つの 頂点 は 互い に 
他 の 反対 側 に ある こと か ら , 必要 性 は 明白 だ と 思い ます . 見 分 ける 方 法 で す が , 
図 -2 の よう な 状態 の と き , 判別 式 D 


は 





D ( 々 , の) (2 一 %) 一 ( ァ ー ァ o) 


、 0 カ /Wcuht や うま の 導く で Mt 0On 2 も タキ 
れ ば よい わけ で す . 





が 。 
2 
A (の タ 。) ビ \ 
\ 
B (イェ j) 
し も 
図 2 図 3 


次 に 適当 な 三角 形 を 選ぶ 方 法 に つい て 述べ ます . すでに お わか り の こと と 思い 
ます が , この 三角 形 の 中 に 他 の 点 が あっ た り , 三角 形 の 辺 が 他 の 線 と 交わ ら な い 
よう に し な けれ ば な り ま せん . そこ で , た と えば 図 - 3 の よう な 状態 の と き , どの 
三角 形 を 選ぶ か と いう 間 題 に な り ま す が , 今回 採用 し た アル ゴリ ズム は , 三角 形 
の 項 角 を 最大 に する も の を 選ぶ と いう こと に し まし た . すなわち 図 - 3 で は , 角 / 
を 与え る 点 P。 を 選ぶ と いう こと で す . た だ し , 角 /』 を 直接 求め た の で は 手間 が か 
か り ま す の で , 角 の 9 が 0 くく ヶ の 区 間 で 単調 減少 する 関数 , cos( の ) を 用 いる こと 
に し まし た . cos( の ) を 求め る に は , 





を 用 い , cos( の ) を 最小 に する 点 P(z, ヶ ) を 捜せ ば よい こと に な り ま す . この 方 
法 で まち が いな く 上 記 の 諸 条件 を 満足 し て いる こと を 確か め て くだ さい . 
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含ま で の 説明 で は ,「 線 を 引く 」 と いう と , 画面 上 の ァ ー ヶ 平面 に を その まま 描画 し 
て いる よう な 感じ が し まし た が , 実際 は 表示 の 部 分 は , z 軸 方 向 の 高 さ も 計算 に 入 
れ て 3 次 元 描画 し て いま す . その 方 法 に つい て は , 次 の 節 を ご らん くだ さい . 


5・3・3 座標 変換 アル ゴリ ズム 


三次 元 の 空間 に 存在 し て いる 物体 を 二 次 元 の 平面 で 表現 する 時 に は 座標 系 の 変 
換 を 行ない ます . は じ め に , 今回 変換 に 使用 し まし た 座標 系 に つい て 説明 し ます . 


| 世界 座標 系 

物体 が 存在 し て いる 三次 元 の 座標 系 を 世界 座標 系 と 呼び ます . X, Y,Z そ れ ぞ 
れ , 土 4 0 9 6 の 範囲 で し きら れる 立方 体 を 考え ます . その 中 に 物体 と 参照 点 つ ま 
り 投影 の 中 心 と な る 位置 と を 決め て いる 世界 座標 系 で の 点 P の 位置 は P (X, Y, 
Z) で 表わし ます . 実際 に は , 図 4 の よう に 右手 系 の 三次 直 座 標 系 を 用 いま す . 


NNw プ hw 


し て いる と し ます 。 





2 視 平面 座標 系 

参照 点 に つい て 物体 と 同じ 側 に , ある 平面 を お いた 時 に 物体 の 像 を その 平面 に 
投影 する こと が で きま す . それ が 実際 に 二 次 元 で 表示 する 時 の 像 に な り 。 ディ ス 
プレ イ や ァ ー ッ プロッタ の よう な 平面 に も , 三次 元 の デー タ を 持つ 物体 の 像 な ど を 
表示 する こと が で きる わけ で す . この 座標 系 で 点 P は , P ( ヶ , ヶ ) で 表わし ま 
す . 実際 の 座標 を , 図 5 の よう に 二 次 元 直交 座標 系 に と り ま す . し か し , 私 達 が 
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普段 見 な れ て いる ? 軸 の 方 向 と 逆 を 向い て いま す が , これ は 本 書 の 3 章 で も 示し 
た よう に , PC-9 8 0 1 の グラ フィ ッ ク L IT 0O の 座標 系 に 合わ せ た た めで す . し た 
が っ て 原点 は , +, 7 を 正 の 値 に 限っ た 時 に は , 平面 の 左上 すみ に な り ま す . 





ae る Pi) 


3 次 元 の 変換 例 
座標 の 変換 に は , 行列 を 使っ て 解く 方 法 が 便利 で か つ 一 般 に 広く 用 いら れ て い 
ます の で , 今回 使用 し た 変換 も 行列 で 表わす こと に し ます . 





み ミュ ャ ュー まぁ と ーー。 ん する 4 
K// まで \。 ーー 和え 。 入 」 和 キ 。 
ee 0 
の 世界 座標 上 の 点 P 
(X。, ト Z。) AS 世界 座標 上 の 参照 点 E 
、 世界 座標 上 で の 視 平面 座標 の 原点 O 
ao 視 平面 座標 上 で の 点 P の 像 P' 


で す . 以上 の 位置 関係 を ヤー 平面 に 投影 し た 見 取り 図 を 図 6 に 示し ます . 
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ァ ー? 平 面 原点 の 像 


OCS \。 Z リ ) 


E (X。 Yo Z 。) TU ”(X。 Y。 義和 


Y。 に 


図 6 


合 加 の 試作 で は 視 平 面 の 方 向 は , メー 平面 に 常に 平行 に た も た れ て いま す . 
上 記 の 変換 を 簡略 化す る た め に , 


(XX。, h Z。) ニ ( 0, 0 , 0 ) 
すなわち 原点 に 位置 し て いる 変換 の 合成 を 示し ます . この 時 , 新た な 変数 と し て 
も fkc 視 平 面 位置 で の 点 P の 像 P” の 世界 座標 


を 考え ます . 


点 P か ら 点 P へ の 変換 は 原点 に つい て の 相似 変換 に な っ て いる の で , 倍率 を 
(Y ノ Yi) どじ て ( 所 本 る 来 め られ ます . 


Y/Y」 0 0 0 X 
NO 0 Y 
2 まっ 0 Y/Y」 0 
1 0 0 0 1 1 


次 に 視 平面 上 に お いて の 変換 は 
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ティ 人 一 基 。 た 人 
ーー ニー ーー Y 
PA 
K/4 ー グ キメ 0 0 ーー 。 1 
これ を 合わ せ て 
Y 
R マー 人 A 
7 ー そ ング 
と が り ます 。 


以上 の 変換 の 前 に 原点 と 参照 点 へ の オフ セッ ト を と り 除 け ば 任意 の 参照 点 に つ 
いて の 変換 が で きま す . 


4 使用 法 

対象 と な る デー タ は , 外部 の デー タ ・ フ ァイル (TABLE. DAT) で 定義 
され て いる も の で あり , CP/M-8 6 で の ASM8 6 の 疑似 命令 INCLUDE 
で と り 込 まれ ます の で , 新しい デー タ を 使用 する 時 は , 2 節 及び リス ト 2 を 参 
考 に し て , ファ イル を 書き 直し て 下さ い . ポイ ント の 数 (PMAX 二 1) は 256 個 
まで 可能 で す . また , HDV が 1 の と き 。, 高 解像度 , 0 の と き 低 解 像 度 モ ニタ で 
動作 し ます . 

頂点 の プロ ッ ト は グラ フィ ッ ク LIO の GCIRCLE と GPSET の 組み 合 
わせ に な っ て いま す の で , 円 の 半径 , 円 周 の 色 , 中 央 の ドッ ト の 色 な ど を 簡単 に 
変化 させ る こと が で きま す . 

頂点 間 の ライ ン の 形式 等 は 一 定 に し て あり ます が パラ メー タ の 変更 で 可能 に す 
る こと が で きま す . (GL I NE 参照 ) 

CP/M- 8 6 で の メモ リ は スモ ー ル ・ モ デル で 管理 され て いま す . プロ グラ ム 
前 半 及 び ス トッ プ ・ キ ー に よる 割込み な どの 割込み ルー チン の テー ブル を 保存 す 
る よう に な っ て いる の で , 他 の プロ グラ ム な どか ら の 割込み ルー チン と し て の 応 
用 も 可能 で す . 


5 将来 へ の 改良 点 


現 段 階 の プロ グラ ム は 機能 的 に まだ 不 十分 な 点 を 残し て いま す . その いく つか 
を 次 に 記し ます . 
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8: 1 データ 入力 の 方 法 

4 節 で も 記し た よう に , デー タ の 入力 が ファ イル の 取り 込み に よっ て 再 ア セン 
ブル し な けれ ば 変更 で き な い の は 非常 に 時 間 的 ロス に な っ て し まっ て いま す . そ 
こ で , 新 ら し い 方 法 と し て は , キー 入力 に よる 取り 込み 。 及び デー タ ・ フ ァイル 
の 自動 取り 込み 等 の 方 法 が 考え られ ます . し か し , 多数 の デー タ を 一 度 に あつ か 
う の に 入力 数 が 多く な る の で 前 者 の 方 法 で ある と , 入力 し た デー タ を 管理 する こ 
と が 複雑 に な り , 過 用 の O S 上 で 行う の で あれ ば 後者 に し た 方 が 修正 等 に 都合 が 
良い で し ょ う . 


5. 2 凸 多 面体 へ の 応用 
現在 は *ー? 平 面 上 の 物体 と し て デー タ を あつ か っ て いま す . (2 節 ) し た が っ 
て , 自由 空間 中 の 凸 多 面体 を あつ か うに は , テー2 平 面 に 平行 な 適当 な 平面 で 物体 
を 2 分 割 し て , それ ぞ れ を 別々 に 処理 する こと に より , 今回 使用 し て いる アル ゴ 
リズ ム の 応用 が 可能 と な り ま す . 


5. 3 等 高 線 を 物体 に 書き 込む 
ワイ ヤー・ フ レー ム の 各線 に 対し て ある 一 定 の 高 さ の 点 を マー ク し , それ を 結 
ん で 行け ば 一 本 の 等 高 線 を 引く こと が で きま す . そこ で 適当 な 間隔 で 等 高 線 を 引 
いて 行け ば 等 高 線 表 示 を 行 な を ます . よっ て , より 物体 の 形状 を と ら え る こと が 
で きま す が , 峰 を いく つか 持っ て いる よう な 物体 に 関し て は 実際 に つなが っ て は 
な ら な い 等 高 線 が つなが っ て し まう 場合 が あり える の で , その 処理 に つい て は 注 
意 し な けれ ば な り ま せん 。 


5. 4 陰線 処理 
現在 の バー ジョ ン で は 陰線 処理 が 行なわ れ て いま せん が , これ を 行なう こと に 
より , より 一 層 見 や すく な り ま す . 


co ネオ イオ ディ アメ ク < 細 還 EE 
5. 4 に さら に シェ イデ ィング (陰影 付け ) を 行なう こと に より , さら に 立体 
感 が 増し 。 リア ル な 図形 を 表現 で きま す . 


全 ss 参 。 式 ムー ジン グ ・Smoothing 


含ま で 図形 を 多面 体 近 似 し て まし た が , 実際 の 図形 は 丸み を 持っ て いる こと が 
多い の で す . し た が っ て , より 高度 な 応用 に な り ま す が 今 回 作成 し た 図形 に スム 
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ー ジ ング を ほど こし て 表面 を な め ら か に する の も 良い で し ょ う . た だ し 現在 の マ 
イク ロコ ンピュータ ー で は か な り む ず か し い 間 題 と な る で し ょ う . 


5. 7 座標 変換 の 多様 性 
今回 作成 し た 変換 パッ ケー ジ は 基本 的 な 部 分 し か サポ ー ト され て いま せん . そ 
こ で 標準 三次 元 パ ッ ケ ー ジ と 同様 な パッ ケー ジ を 作る こと に よっ て , 図形 表現 に 
変化 を も た せ , ハー ドウ ェ ア に 依存 し な い グ ラフ ィ ッ ク を 行なう こと も 可能 で す . 


) ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エエ ニニ エニ ニニ ニニ ニニ モー ニニ コミ エニ エニ ニコ ミニ ミ ニニ モミ セテ デー 


:=== 3D WIRE FRAME MODEL DISPLAY SYSTEM た よ よ すす は 
1 = モニ ON PC-9800 GRAPHIC LIO & CP/M-86 HHLHLHL 
- 二 [すす すす すま すす] 
E- 二 コ 上 すま すす すす] 


TITLE  '3D WIRE FRAME MODEL DISPLAY SYSTEM' 


00A0 GINIT EQU 0A0H 

00A1 GSCREEN EQU 0A1H 

00A2 GVIEw EQU 0A2H 

00A3 GCOLOR1 EQU 0A3H 

00A4 GCOLOR2 EQU 0A4H 

00A5 GCLS EQU 0A5H 

00A6 GPSET EQU 0A6H 

00A7 GLINE EQU 0A7H 

00A8 GCIRCLE EQU 0A8H 

00A9 GPAINT1 EQU 0A9H 

00AA GPAINT2 EQU 0AAH 

00AB GGET EQU 0ABH 

00AC GPUT 1 EQU 0ACH 

00AD GPUT2 EQU 0ADH 

00AE GROLL EQU 0AEH 

00AF GPOINT2 EQU 0AFH 

00CE GCOPY EQU 0CEH 

00E0 BDOS EQU 224 

CSEG 

ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
人 E- 二 上 ます 
:=== INTERRUPT VECTOR INITIALISE ========== 
トコ ヒキ - す コ 


:=== SET STACK AREA ==== ニ = ニニ = ニニ ニニ ニニ ニニ ニ 


(エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ ニニ ニニ ニニ ニニ 


0000 9C PUSHF 

0001 5B POP BX 

0002 FA CLI 

0003 8CD8 MOV AX ,DS 

0005 8ED0 MOV . SS,AX 

0007 BC5E28 MOV SP,OFFSET STACK_TOP 
000A 53 PUSH BX 

000B 9D POPF 


? く ご ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ エニ ニニ ニニ ニニ ニニ ニニ 


:=== STORE DATA SEGMENT ADDRES ==== 


(ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニテ デニ ニニ ニニ デニ ニニ ニニ 


000C 2E8C1EF604 MOV CS:DS_BACKUP , DS 
0011 2E8C16F804 MOV CS:SS_BACKUP , SS 
0016 2E8926FA04 MOV CS:SP_BACKUP , SP 


・=== SAVE INTERRUPT VECTORS ======= 


に 
き 
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001B 
001C 
001D 
001E 
0020 
0022 
0025 
0028 
002B 
002C 
002E 
0031 
0032 


0033 
0036 
0037 


0038 
003B 
003C 


0078 
007B 
007E 


0081 


BE1403 
A5 
AS 


BE1800 
AS 
A5 


06 
B91000 
B890F9 
8ED8 
33C0 
8EC0O 
BE0600 
BF8002 


BF1403 
B8BF04 


AB 
268C0D 


BF1800 
B8B204 


B80000 
A35620 
E88600 


E8AE03 


0050 


?=== GRAPHIC LTIO = ェ = ェ = ュ = ニ = ニュ ェ ェ = エニ エコ エ さ ニニ = 


CLI 

PUSH DS 
POP ES 
XOR AX, AX 
MOV DS , AX 


MOV SI,0AOHx4 
MOV DI,OFFSET VECT_BACKUP 


MOV CX , 32 
CLD 
REP MOVSW 
MOV SI ,0CEHw4 
MOVSW 
MOVSW 

:=== STOP CHECK VECTOR === 
MOV SI ,0CSHx4 
MOVSW 
MOVSW 

*=== STOP KEY VECTOR === 
MOV SI,6w4 
MOVSW 
MOVSW 


=== SET INTERRUPT _ VECTOR === ェ == ュ = ェ = ェ = ェ = ニ ニニ ニニ ニニ ニュ ニ 
圭二 ] 上 す コ 
1 エモ エニ エニ モニ ニニ ーー ニコニ ニニ ニニ エニ モニ ーー ニコニ ニー モコ ニコ ニコ ニコ ニコニ ニニ デニ ここ お コニー 


る GRAPHIC LIO == ュ = ュ ュ == ェ ニ = ェ = エ ェ ュ ニュ ニニ ニニ 


PUSH ES 
MOV CX,16 
MOV AX,LIO_BASE 
MOV DS,AX 
XOR AX AX 
MOV ES AX 
MOV SI,6 
MOV DI ,0A0Hx4 
LP_SETV: 
MOVSW 
MOV AX,LIO_BASE 
STOSW 
ADD SI ,2 
LOOP LP_SETV 
MOV DI ,0CEHx4 
MOVSW 
MOV AX.LIO_BASE 
STOSW 
=== CHECK STOP === ェ == ュ == ニ = ニニ = ニ = ニ = ニニ = ニニ ニニ ニニ ニニ 
MOV DI ,0C5Hx4 
MOV AX.OFFSET CHECK_STOP 
STOSW 
V ES: [DI].CS 
== ェ = STOP KEY === ェ === ュ = ニ = ニ = ニニ ニニ ニニ デニ デニ デニ ニニ デニ 
D! ,6x*4 
MOV AX,OFFSET STOP_KEY 
STOSW 
V ES:【DI],CS 
POP DS 
STI 
MAXVAL EQU 32767 
MINVAL EQU -32768 
NIL EQU こ = 流 
INF EQU =】 


E- ミニ ミニ 
*=== MAIN ROUT INE === ニ === ニ == ニ = ニニ = ニニ = ニニ ニニ ニニ ニニ ニニ ニニ 
EE- 二 --] = ニニ 


MAIN: MOV AX、0 
MOV LP,AX 
CALL PSORT 


CALL TRN_3D2D 
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0084 
0086 
0089 
008B 
008F 
0091 
0093 
0096 
0098 
009B 
009F 
00A1 
00A3 


00AS 
00A9 
00AC 
00AE 
00B0 
00B2 
00B5 
00B7 
00BA 
00BD 
00BF 
00C1 


00C3 
00C6 
00C9 
00CC 
00D0 
00D2 
00D5 
00D7 
00D9 
00DB 
00DF 
00E2 
00E4 
00E8 
00EA 
00ED 
00F1 
00FS 
00F9 
00FC 
00FE 
0101 
0105 


BS500 
BA0080 
8ACD 
3A0E4F1C 
7407 
FEC1 
E8B100 
EBF3 
E8EA00 
3A1E4F1C 
7404 
8AEB 
EBE1 


8A2E4F1C 
BA0080 
8ACD 
FEC9 
7805 
E89200 
EBF7 
E8CB00 
80FB00 
7404 
8AEB 
EBE6 


B80000 
A35820 
A15820 
3B065620 
7503 
E9D703 
03C0 
03C0 
8BF0 
8A9C591C 
80FBFF 
7406 
FF065820 
EBDF 
E88602 
8884591C 
8AAC561C 
8A8C571C 
E8F401 
86E9 
E8EF01 
FF065820 
EBC2 


BBOD1C 


8BFE 
3AOE4F1C 
7407 
FEC1 
83C606 
EBEB 
BE0000 
E80F00 
E80C00 
E80900 
FEC5 
3A2E4F1C 


0098 
0147 
008B 
0185 


00A5 


0086 


00B7 
0147 


00AE 
0185 
00C3 


00A9 


00D5 
04AC 


00EA 


00C9 
0373 


02F0 
02F0 
00C9 


011C 


0129 


0114 


013E 
013E 
013E 


MOV CH.0 
OLINI: MOV DX .MINVAL 
MOV CL,CH 
OLIN2: CMP CL.BYTE PTR PMAX 
JE OLIN3 
INC CL 


OLIN3: CALL MKLIN1 


CMP BL.BYTE PTR PMAX 
JE OLIN4 
MOV CH.BL 
JMPS 0LIN1 
OLIN4: MOV CH、BYTE PTR PMAX 
OLINS: MOV DX .MINVAL 
MOV CL.CH 
OLIN6: DEC CL 
J OLIN7 


OLIN7: CALL MKLIN1 


CMP BL , 0 
JE ILIN 
MOV CH , BL 
JMPS 0LINS 
ILIN: MOV AX,0 
MOV LS , AX 
ILINI: MOV AX,LS 
CMP AX , し P 
JNE DUMM 
JMP REBOOT 
DUMM: ADD AX,AX 
ADD AX、AX 
MOV SI.AX 
MOV BL, [SI]+OFFSET LTB+3 
CMP BL , I NF 
JE 1LIN2 
INC LS 
JMPS 1LIN1 
ILIN2: CALL MKTRI 
MOV [SI]+OPFSET LTB+3.AL 
MOV CH, [SI]+OFFSET LTB 
MOV CL, [SI]+OFFSET LTB+1 
CALL REGLN 


XCHG CH,CL 
CALL REGLN 
LS 


JMPS ILIN1 
PPP 


E- 主 二 -] ニニ テニ 
*=== PTB SORT ING == ェ = ュ ュ = ミュ = ニニ = ニニ ミニ テニ ニニ ニニ ニニ 
E- 二 -- コ に た 
く = ニ エニ ニニ ニニ ニニ ニニ ニモ ニモ こさ 生き 定 王 あら とこ で モニ デモ まだ だ ほお 
PSORT: MOV BX.OFFSET PTB 

MOV CH.0 
PSORT1: MOV DX ,MAXVAL 

MOV CL.CH 

MOV SI,0 
PSORT2: CMP DX , [BX+SI ] 

JLE PSORT3 

MOV DX.[BX+S1I] 

MOV DI,SI 
PSORT3: CMP CL,BYTE PTR PMAX 

JE PSORT4 

INC CL 

ADD SI ,6 

JMPS PSORT2 
PSORT4: MOV SI,0 

CALL PSORTS 

CALL PSORY5 

CALL PSORT5 

INC CH 


CMP CH, BYTE PTR PMAX 


013B 75CF 
013D C3 


013E 8B00 
0140 8701 
0142 8900 
0144 43 
0145 43 
0146 C3 


0147 53 
0148 52 
0149 B400 
014B、8ACS 
014D E86200 
0150 8BD8 
0152 B400 
0154 8AC1 
0156 E85900 
0159 2BC3 
015B 7425 
015D 8BD8 


015SF B401 
0161 8AC5 
0163 E84C00 
0166 8BD0 
0168 B401 
016A 8AC1 
016C E84300 
016F 2BC2 
0171 F72E521C 
0175 F7FB 
0177 5A 
0178 5B 
0179 3BC2 
017B 7E04 
017D 8BD0 
017F 8AD9 
0181 C3 


0182 5A 
0183 5B 
0184 C3 


0185 57 

0186 8ACS 
0188 8AE3 
018A B207 
018C E8BB03 
018F Al15620 
0192 DIE0 
0194 DIE0 
0196 8BF8 
0198 88AD561C 
019C 889D571C 
01A0 BOFE 
01A2 8885581C 
01A6 BOFF 
01A8 8885591C 
01AC FF065620 
01BO 5F 

01B1 C3 


010C 


01B2 


01B2 


01B2 


0181 


054A 


JNE PSORT 1 
RET 

PSORTS: MOV AX 。[BX+SI ] 
XCHG AX , [BX+DI ] 
MOV [BX+SI ],AX 
INC BX 
INC BX 
RET 


も 池本 
NM CHECK OUTER LINE ============= 
? ニニ ニー に キー 
? ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


CKLINI: PUSH  BX 


PUSH DX 
MOV AH、.0 
MOV AL ,CH 
CALL GETPTB 
MOV BX ,AX 
MOV AH,0 
MOV AL ,C し 
CALL GETPTB 
SUB AX 、BX 
JZ CKLNR1 
MOV BX , AX 
MOV AH. 1 
MOV AL .CH 
CALL GETPTB 
MOV DX . AX 
MOV AH、.1 
MOV AL,CL 
CALL GETPTB 
SUB AX, DX 
IMUL WORD PTR NUM8 
IDIV BX 
POP DX 
POP BX 
CMP AX.DX 
JLE CKLNR2 
MOV DX , AX 
MOV BL ,CL 

CKLNR2: RET 

CKLNR1: POP DX 
POP BX 
RET 


光生 
ほ キ MAKE OUTER LINE === ェ = ェ = ニ == ニ == ェ = ニニ = ニュ = 
? ニニ ニモ = ニニ = ニ = 
1 ニニ ニニ ニニ ニニ ニニ ニモ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


MKLIN1: PUSH DI 
MOV 


AL,CH 
MOV AH, BL 
MOV DL, 7 
CALL LINE 
MOV AX,LP 
SAL AX , 1 
SAL AX , 1 
MOV DI,AX 
MOV [DI]+OFFSET LTB,CH 
MOV [DI]+OFFSET LTB+1.,BL 
MOV AL,NIL 
MOV [DI]+OFFSET LTB+2.AL 
MOV AL, INF 
MOV [DI]+OFFSET LTB+3,AL 
INC LP 
POP DI 
RET 
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290 


F626511C 
03C2 
03C2 
8BF0 
8B840D1C 
5A 


5E 
C3 


F736541C 
50 


B401 
8ACS 
E8ADFF 
8BD8 
B401 
8AC5 
E8A4FF 


2BC3 
F7E8 
F736541C 
5B 

03C3 

5A 

5B 

C3 


01DE 


01B2 


01B2 


01B2 


01B2 


? ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
1 ミ 有 


*=== GET DATUM FROM PTB =========== 


5 三 呈 1 
(ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ミニ ニニ ニニ ニニ ニニ ニニ ニ 


GETPTB: PUSH SI 


PUSH DX 

MOV DL , AH 

MOV DH, 0 

MUL BYTE PTR NUM6 
ADD AX,DX 

ADD AX.DX 

MOV SI ,AX 

MOV AX, [SI]+OFFSET PTB 
POP DX 

POP S1 

RET 


1 本格 和 人 
た 二 コ に た す ゴ 
:=== SQUARE ROOT AX == ェ ======= ニ = ニニ = ニニ = ニニ ニニ 
圭二 コ ニニ = 
性 エ エエ 1 すす 11! トト: 1 1 1 1 1 ) # 1 1 1 1 ! 1 1 1 1 1 1 1} 11】 


SQRT : PUSH BX 
PUSH CX 
MOV BX , AX 
MOV AX , 1 
MOV CX , AX 

SQRT1: CMP AX , BX 
り GE SQRT2 
ADD AX,CX 
ADD AX,CX 
INC AX 
INC X 
JMPS SQRT 1 

SQRT2: MOV AX,CX 
POP CX 
POP BX 
RET 


林寺 
上 二 に に 
== ミ = VECTOR LENGTH == ェ == ュ = ュ = ュ ュ ュ ミュ ニュ ニニ ニコ ニニ 
性 - キ す - コ 
1? ニニ ニニ ニニ デジ デニ ニニ ニニ ニニ ミニ ニニ ニー ニニ ニニ ニニ ニニ ミニ ニニ ニニ ニ 


FNDT : PUSH BX 
PUSH DX 
MOV AH,0 
MOV AL , CH 
CALL GETPTB 
MOV BX, AX 
MOV AH, 0 
MOV AL,CL 
CALL GETPTB 
SUB AX,BX 
IMUL AX 
DIV NUM5 1 2 
PUSH AX 
MOV AH , 1 
MOV AL , CH 
CALL GETPTB 
MOV BX,AX 
MOV AH, 1 
MOV AL , CH 
CALL GETPTB 
SUB AX,BX 
IMUL AX 
DIV 
POP X 
ADD AX,BX 
POP DX 
POP BX 
RET 





8A84561C 
A25A20 
8A84571C 
A25B20 


01B2 


01B2 


01B2 


01B2 


01iB2 


01B2 


01B2 


01B2 


人 まま ます ます 111111 ミ ミミ 1 トト キト 1 1 ミト ミネ ォ )】) 1 1 1 
人 ] 上 に エゴ 
=ss= VECTOR DOT PRODUCT ==== ェ ======= 
EE- 二 す ます 
1 詞 き 志和 守 王 王 富 事 王 王 補 ニニ ココ お お お ココ エニ エニ ニニ ニコ ニー ニニ 


FNARC: PUSH  BX 


MOV FNXB0 , AL 
MOV AH,0 
MOV AL,CH 
CALL GETPTB 
MOV BX , AX 
MOV AH,0 
MOV AL,CL 
CALL GETPTB 
PUSH AX 
SUB AX,BX 
MOV BX, AX 
MOV AH,0 
MOV AL,FNXB0 
CALL GETPTB 
MOV DX, AX 
POP AX 
SUB AX,.DX 
IMUL BX 
PUSH DX 
PUSH AX 
MOV AH, 1 
MOV AL,CH 
CALL GETPTB 
MOV BX , AX 
MOV AH, 1 
MOV AL,CL 
CALL GETPTB 
PUSH AX 
SUB AX,BX 
MOV BX , AX 
MOV AH, 1 
MOV AL,FNXB0 
CALL GETPTB 
MOV DX , AX 
POP AX 
SUB AX,DX 
IMUL BX 
POP に 
ADD AX 、BX 
POP BX 
ADC DX , BX 
POP BX 
RET 
? く ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
人 E- 二 -】 上 すす ゴ コ 
i=== DESCLIMINATE FUNCTION ======== 
(ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
FNX: PUSH BX 
PUSH DX 
PUSH S1 
MOV AX,LS 
ADD AX、AX 
ADD AX AX 
MOV STI.AX 
MOV AL,[SI]+OFFSET LTB 
MOV FNXB0O .AL 
MOV AL,[SI]+OFFSET LTB+1 
MOV FNXB1 . AL 
MOV AH., 1 
MOV AL,CL 
CALL GETPTB 
PUSH AX 
MOV AH. 1 
MOV AL,FNXB0O 
CALL GETPTB 
MOV BX .AX 


291 


029F 2BC3 SUB AX.BX 
02A1 50 PUSH AX 

02A2 B401 MOV AH.1 
02A4 A05A20 MOV AL .FNXB0O 
02A7 E808FF 01B2 CALL GETPTB 
02AA 8BD8 MOV BX 、AX 
02AC B401 MOV AH. 1 
02AE A05B20 MOV AL,FNXB1 
02B1 E8FEFE 01B2 CALL GETPTB 
02B4 2BC3 SUB AX.BX 
02B6 8BDO MOV DX.AX 
02B8 B400 MOV AH.0 
02BA A05A20 MOV AL、FNXB0O 
02BD E8F2FE 01B2 CALL GETPTB 
02CO 8BD8 MOV BX、AX 
02C2 B400 MOV AH,0 
02C4 8AC1 MOV AL ,CL 
02C6 E8E9FE、 01B2 CALL PTB 
02C9 2BC3 SUB X,BX 
02CB F7EA IMUL 

02CD 50 PUSH AX 

02CE B400 MOV 1 

02D0 A05A20 MOV AL,FNXB0 
02D3 E8DCFE 01B2 CALL GETPTB 
02D6 8BD8 MOV BX , AX 
02D8 B400 MOV AH,0 
02DA A05B20 MOV AL,FNXB1 
02DD E8D2FE 01B2 CALL GETPTB 
02E0 2BC3 SUB AX,BX 
02E2 8BD8 MOV BX AX 
02E4 58 POP 

02ES F7FB IDIV 

02E7 8BD8 MOV BX, AX 
02E9 58 POP 

02EA 2BC3 SUB AX,BX 
02EC 5E POP ! 

02ED 5A POP DX 

02EE 5B POP BX 

02EF C3 RET 


も 二村 
信二 二 コ ミニ ニ 
?== ェ = REGIST LINE == ュ === ェ = ェ = ュ = ニュ = ニ ニニ ニニ ニニ ニニ 
FE = ミニ = ニニ 
1 王 補 王 王 王 宮 モコ ニ ニニ ミニ ニニ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニコ 


02FO 56 REGLN: PUSH SI 

02F1 E83D00 0331 CALL SRCHLN 

02F4 80FCFF CMP AH,- 1 

02F7 7412 030B JE REGLN1 

02F9 50 PUSH AX 

02FA 8AC4 MOV AL, AH 

02FC B400 MOV AH, 0 

02FE 03C0 ADD AX,AX 

0300 03C0 ADD AX,AX 

0302 8BF0 MOV SI ,AX 

0304 58 POP AX 

0305 888C591C MOV [SI]+OFFSET LTB+3.CL 
0309 5E POP S1 

030A C3 RET 

030B 8B365620 REGLN1: MOV S1 ,LP 

030F 03F6 ADD SI,SI 

0311 03F6 ADD SI ,SI 

0313 8884561C MOV [SI]+OFFSET LTB,AL 
0317 88ACS71C MOV [SI]+OFFSET LTB+1.CH 
031B 888C581C MOV [SI]+OFFSET LTB+2.CL 
031F C684591CFF MOV BYTE PTR [SI]+OFFSET LTB+3,INF 
0324 FF065620 INC LP 

0328 8AE5 MOV AH,CH 

032A B207 MOV DL , 7 

032C E81B02 054A CALL LINE 

032F 5E POP SI 

0330 C3 RET 
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CRPiglyr tnorz 2 


0331 


53 


3A84561C 
7506 
3AAC571C 
7429 

43 
83C604 
3BIE5620 
75EA 


BB0000 
8BF3 
3AAC561C 
7506 
3A84571C 


83C604 
75EA 


E9B800 


8B365820 
03F6 
03F6 
8A84581C 
B300 
3CFE 
740D 
B30 1 
8AC8 
E8E2FE 
23C0 
7802 
B302 
881E5C20 
BAFF7F 
B300 
FECB 
E94B00 
3A9C561C 
7445 
3A9C571C 
743F 

52 

8AEB 
8A8C561C 
E829FE 
E80CFE 
8BD0 
8AEB 
8A8C571C 
E81BFE 
E8FEFD 


0343 
036C 


0337 


035E 
036C 


0352 


042B 


0396 


0272 
0396 


03EF 
03EF 
03EF 


01E3 
01C9 


01E3 
01C9 


呈す ] : 上 ] 
ij=== SERCH LINE === ュ == ュ ==========ms 
すす 上 に た 
コモ ニニ ニニ ニコニ ニニ ニュ ニニ ニニ ニニ ニニ ニニ 


SRCHLN: PUSH  BX 
MOV BX。0 


MOV SI,BX 
SCHLN1 : CMP AL, [SI]+OFFSET LTB 
JNE SCHLN2 
CMP CH, [SI]+0FFSET LTB+1 
JE SCHLNR 
SCHLN2: INC BX 
ADD SI,4 
CMP BX ,LP 
JNE SCHLN1 
MOV BX .0 
MOV SI ,BX 
SCHLN3: CMP CH, [SI]+OFFSET LTB 
JNE SCHLN4 
CMP AL. [SI]+OFFSET LTB+1 
JE SCHLNR 
SCHLN4: INC BX 
ADD S! ,4 
CMP BX ,LP 
JNE SCHLN3 
POP BX 
MOV AH,- 1 
RET 
SCHLNR: MOV AH.BL 
POP BX 
RET 


) ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = ニニ 
* ニ ニニ に キ 二 コ 
=== MAKE TRIANGLE == ェ ====== ニ = ニニ == ニ == ニ == 
- 二 - モニ ミニ 
) ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


MKTRR1: JMP MKTRR 
MKTRI: PUSH BX 
PUSH CX 
PUSH DX 
PUSH SI 
MOV SI ,LS 
ADD SI ,SI 
ADD SI ,SI 
MOV AL, [SI]+OFFSET LTB+2 
MOV BL,0 
CMP AL,NIL 
JE MKTR1 
MOV BL, 1 
MOV CL,AL 
CALL FNX 
AND AX,AX 
JS MKTR1 
MOV BL, 2 
MKTR1: MOV MD , BL 
MOV DX ,MAXVAL 
MOV BL,0 
DEC BL 
JMP MKTR3 
MKTR2: CMP BL, [SI]+OFFSET LTB 
JE MKTR3 
CMP BL, [SI]+OFFSET LTB+1 
JE MKTR3 
PUSH DX 
MOV CH, BL 
MOV CL, [SI]+OFFSET LTB 
CALL FNDT 
CALL SQRT 
MOV DX ,AX 
MOV CH, BL 
MOV CL, [SI]+OFFSET LTB+1 
CALL FNDT 
CALL SQRT 
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03CB 
03CD 
03CF 
03D1 
03D3 
03DS 
03D6 
03D8 
03DC 
03E0 
03E3 
03E5 
03E6 


03E7 : 


03E9 
03EB 
03ED 
03EF 


03F2 : 


03F4 
03F6 
03F8 
03FC 
03FE 
0400 
0402 
0404 
0406 
040A 
040C 
040E 
0411 
0413 
0415 
0417 
0419 
041D 
041F 
0421 
0424 
0426 
0428 


042B 
042D 
042E 
042F 
0430 
0331 


03332 
0335 
0438 
043B 
0433F 
0442 
0444 
0448 
044A 
044B 
044C 
0450 
0453 
0455 
0458 
045C 
045E 
0462 
0466 


046A 


F7E2 
03C0 
03C0 
03C0 
8ACB 

53 

8BD8 
8AAC561C 
8A84571C 


FEC3 
3A1E4F1C 
742D 
EBA4 
3C01 
7413 
FEC3 
3AIE4F1C 
741F 
8ACB 
E861FE 
23C0 
78EF 
EB8D 
FEC3 
3A1E4F1C 
740C 
8ACB 
E84EFE 
23C0 
79EF 
E979FF 


BE0000 
BF0000 
A1091C 
2B06031C 
BBOD1C 
B500 
8A0E4F1C 
FEC1 

51 

50 
8B16051C 
2B5004 
F7EA 
8B4802 
2BO0E031C 
F7F9 
03060B1C 
2B06051C 
8985031 4 


8B10 


021C 


03EF 


MUL DX 
ADD AX,AX 
ADD AX AX 
ADD AX、AX 
MOV CL , BL 
PUSH BX 
MOV BX , AX 
MOV CH, [SI]+OFFSET LTB 
MOV AL,[SI]+OFFSET LTB+1 
CALL FNARC 
IDIV BX 
POP BX 
POP DX 
CMP AX .DX 
JGE MKTR3 
MOV DX , AX 
MOV BH, BL 
MKTR3: MOV AL,MD 
CMP AL,0 
JNE MKTR4 
INC BL 
CMP BL .PMAX 
JE MKTRR 
JMPS MKTR2 
MKTR4: CMP AL、1 
JE MKTR6 
MKTR5: INC し 
CMP BL .PMAX 
JE MKTRR 
MOV CL., BL 
CALL FNX 
AND AX 、AX 
JS MKTR5 
JMPS MKTR2 
MKTR6: INC BL 
CMP BL 、PMAX 
JE MKTRR 
MOV CL, BL 
CALL FNX 
AND AX.AX 
JNS MKTR6 
JMP MKTR2 
MKTRR: MOV AL,BH 
POP に 3 
POP DX 
POP CX 
POP BX 
RET 
=== TRANSLATE 3D TO 2D === ニ = ニニ ニニ ミニミニ 
* ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
TRN_3D2D: 
MOV S1 .0 
MOV DI .0 
MOV AX .WORD PTR NO+2 
SUB AX .WORD PTR _EP+2 
0OV BX .OFFSET PTB 
MOV CH、.0 
MOV CL 、PMAX 
INC CL 
LP2: PUSH CX 
PUSH AX 
MOV DX,WORD PTR EP+4 
SUB DX , [BX+SI]+4 
IMUL DX 
MOV CX , [BX+SI]+2 
SUB CX . WORD PTR EP+2 
IDIV CX 
ADD AX ,NO+4 
SUB AX,EP+4 
MOV TRANS_TBL+2 [DI ] ,AX 
MOV DX , [BX+SI! ] 


046C 


0470 
0471 
0473 
0476 
047A 
047C 
0480 
0484 
0488 
048B 


048E 
048F 


0491 


0493 
0496 


0498 


049A 
049E 
04A2 
04AS 
04A9 
04AB 


04AC 
04AE 
04BO 


04B2 
04B3 
04B8 
04BD 
04BE 


04BF 
04C0O 
04C5 
04CA 
04CC 


04CF 
04D0 


2B16011C 


58 

F7EA 
8B4802 
2BOE031C 
F7F9 
0306011C 
2B06071C 
89850114 
83C606 
83C704 


59 
E2B9 


CDA0 


BB4D0 1 
CDA1 


CDA5 


8A0E4F1C 
880E5101 
E85700 
FEOE5101 
79F7 

C3 


1E 
2E8E1EF604 
C6064C0101 
1F 
CF 


1E 
2E8E1EF604 
803E4C0100 
7403 
E90200 


1F 
CF 


044A 


04FC 
04A2 


04CF 
04D1 


SUB DX, EP 

POP AX 

IMUL DX 

MOV CX , [BX+SI]+2 
SUB CX ,EP+2 

IDIV CX 

ADD AX ,EP 

SUB AX,NO 

MOV TRANS_TBL[DI] AX 
ADD SI ,6H 

ADD DI ,4H 

POP CX 

LOOP LP2 


=== INITIALIZE ========== ニ = ニニ = ニニ = ニニ = 


INT GINIT 


=== SCREEN COMAND == ェ ======== ェ = ニニ == ェ = 


ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


MOV BX.OFFSET SCREEN 
INT GSCREEN 
? ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
=== CLS COMMAND ==== ニ == ェ === ニ ニニ = ニニ = ニニ ニニ 
* ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
INT GCLS 


* 
ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


?= ニ == PLOT === ニ === ミ = ニニ = ニ = ニ == ニ = ニニ = ニニ ニニ ニニ ニニ ニニ 

MOV CL ,PMAX 

MOV POINT_W,CL 
PLOT: CALL POINT 

DEC POINT_W 

JNS PLOT 

RET 
1 ニニ ニニ ニニ ニテ ニニ エニ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
? ニニ = ニ 上 す ] 
== ェ = SYSTEM RESET == ェ === ェ = ニュ = ュ = ュ = ニ = ュ ニ = ュ ニ ニニ 
TE- 二 - キー 
3 ニニ ニニ ニニ ニニ ニニ ニコ ニニ ニニ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ テニ 
REBOOT : 

MOV CL,0 

MOV DL.0 

INT BDOS 


? ニ ニニ に た 二 ゴ 
=== STOP INTERRUPT === ェ === ニ == ニ = ニ = ェ = ニニ = ニニ = ニ = 
? ニニ ニー ミニ ミニ 
ュー 
STOP_KEY: 

PUSH DS 

MOV DS,CS:DS_BACKUP 

MOV STOP_FLAG, 1 

POP DS 

IRET 
? ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 
? ミニ ニニ = ニニ ニ 
?=== CHECK STOP === ミ ==== ニ == ニ = ニニ = ニニ ニニ ニニ = ニニ 
? ニニ ニ ニニ ニ 


CHECK_STOP: 


PUSH DS 
MOV DS,CS:DS_BACKUP 
CMP STOP_FLAG, 0 
り Z CONT INUE 
JMP ABORT 
CONTINUE: 
POP DS 
RET 


ABORT : 
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296 


8A4401 
894504 


B101 
D3F8 


894506 
8A4402 


884508 
C6450900 


50 
51 


04AC 


0548 


CLI 

INT 0A5H 

XOR AX 、AX 

MOV ES.AX 

MOV SI 、OFFSET VECT_BACKUP 
MOV DI.0AOHx4 
MOV CX .32 

CLD 

REP MOVSW 

MOV DI .0CEH*4 
MOVSW 

MOVSW 

MOV DI ,0C5Hw4 
MOVSW 

MOVSW 

MOV DI ,6w4 
MOVSW 

MOVSW 

ST1! 

JP REBOOT 


:=ss SEGMENT ADDRESS STORE AREA === 


DS_BACKUP Dw 0 
SS_BACKUP Dw 0 
SP_BACKUP DW 0 


33311113113 は 313 も 11 す すもも も も だ に にし に た た にし た 
?== ェ = ェ POINT = ニュ == ニ = テニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニテ 
1 = エニ ニニ ニニ ニモ ニニ モデ ニニ エエ モニ エエ エニ ニニ ニニ ニニ ニニ ニニ ニニ 
POINT: PUSH CX 

MOV SI ,.OFFSET POINT_W 


MOV AL,BYTE PTRLSI]} 

XOR AH, AH 

MOV BX , 4H 

MUL BX 

XCHG AX ,SI 

MOV BX.OFFSET TRANS_TBL 
MOV DI,OFFSET LIO_W 
MOV DX , WORD PTR 〔BX+SI ] 
MOV WORD PTR [DI],DX 
MOV DX .WORD PTR [BX+SI]+2 
MOV WORD PTR [DI]+2.DX 
XCHG AX,SI 

XOR AH , AH 

MOV AL,BYTE PTR 〔SI]+1 
MOV WORD PTR [DI]+4.AX 
MOV CL, 1 -HDV 

SAR AX ,C し 

MOV WORD PTR [DI]+6.AX 
MOV AL,BYTE PTR [SI]+2 
MOV BYTE PTR [DI]+8、AL 
MOV BYTE PTR 〔DI]+9,0H 
MOV BX ,DI 

PUSH SI 

PUSH BX 

INT 0A8H 

POP BX 


SI 
MOV AL,BYTE PTR [SI]+3 
CMP AL,07FH 


JNE RET_POINT 
MOV BYTE PTR 〔BX]+4、AL 
INT 0A6H 
RET_POINT: 
POP CX 
RET 


RT 311111111111111131 は 3111 は も は は SL た LL に に に にし し し し 
(== ェ ミ LINE = ェ エニ = ュ = エ = エエ ニニ ニニ エニ ニニ ニニ ニニ エロ エエ ニニ エモ デモ ニニ 
) = モモ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


LINE: 
PUSH 
PUSH 
PUSH 


AX 
BX 
CX 


NAME コ ro 


0584 


0584 


PUSH DX 

SH DI 
や USH SI 
PUSH DX 
PUSH AX 


CALL LINE_1 
MOV DI ,OFFSET LIO_w 
MOV WORD PTR 〔DI].AX 
MOV AX,WORD PTR [BX+SI]+2 
MOV WORD PTR [DI] ャ 2,AX 
POP AX 
CALL LINE_1 
MOV WORD PTR [DI]+4,AX 
MOV AX,MORD PTR [BX+SI1]+2 
MOV WORD PTR [DI]+6,AX 
POP AX 
XOR AH, AH 
MOV WORD PTR 〔DI]+08H,AX 
MOV BYTE PTR [DI]+0AH,0H 
MOV BX,DI 
INT 0A7H 
POP SI 
POP D1 
POP DX 
POP CX 
POP BX 
POP AX 
RET 

LINE_1: MOV AH,04H 
MUL AH 
MOV SI .AX 
MOV BX,OFFSET TRANS_TBL 
MOV AX,MORD PTR [BX+SI1 
RET 


ーー 
ます 上 
si=== DATA SEGMENT == ェ = ュ = ニ = ニュ == ュ = ニニ = ェ = ニ = ニニ = ニュ ニニ テニ 
必 二 ま コ 上 
1 ニニ ニニ エニ ニニ ニニ エニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


DSEG 
ORG 100H 
LIO_BASE EQU OF990H 
HDV EQU 0 i1=HIGH RESOLUTION、 
:0=LOW RESOLUTION 
VECT_BACKUP RW 38 
STOP FLAG DB 0 
:PARAMETER LIST 
SCREEN DB HDVw3 
DB 0 
DB 0 
DB 1 
POINT_W DB 0 
DB 5 
DB 3 
DB 7FH 


1 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
=== LIO WORK AREA ==== ニ = ミニ == ニ = ニニ ニニ = ニニ = 
) ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = 
LIO_W RB 300H 

RB 0 


1 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニコ ニュ ニニ ニニ ニ 


:=== GRAPH し LIO SYSTEM AREA ======== 


ORG 620H 
RB 0DE0H 
DB 00H 
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298 


1401 


1C0 1 


1C07 


00000000FA00 


COFEC8009001 


8C008A02B400 
A2FE8A02B400 
1801E402C800 
40010C03BE00 
04018403C800 
ECFF9803BE00 
640052037C01 
E2FF0C03A401 
C80002039001 
F0002003A401 
A0002003F401 


0A 
00 
06 


0800 
0002 


00 


00 
00 


END OF ASSEMBLY . 


TRANS_TBL RW 1024 
INCLUDE B:TABLE.DAT 


: EP : EYE POINT 
EP DV 0. 0, 


NO : NORMALIZED ORIGIN 


NO Dw -320, 200, 

: PTB : POINT TABLE DATA 

PTB Dw 140, 650, 
DW -350。 650。, 
Dw 280, 740, 
Dw 320, 780, 
Dw 260, 900, 
Dw -20。 920, 
Dw 100, 850, 
Dw -30。 780。 
Dw 200, 770, 
Dw 240。 800, 
Dw 160。 800, 

: PMAX : (POINT NUMBER - 1) 

PMAX DB 10 
DB 0 

NUM6 DB 6 

NUM8  Dw 8 

NUM512 DV 512 

LTB RS 1024 

LP RV 1 

LS RW 1 

FNXBO RB 1 

FNXB1 RB 1 

MD RB 1 

DB 0 


1 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


・=== STACK AREA == ニ = ニ = ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


RW 1024 
STACK_TOP DB 0 
- 和議 0 


END 


NUMBER OF ERRORS: 0. USE FACTOR: 3% 
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400 





0000 
04F6 
2056 
1C54 
1C0D 
014C 


0000 
00E0 
00CE 
00AA 
00AE 
F990 


0000 
04D1 
04CF 
01B2 
0584 
0396 
0417 
008B 
00B7 
0114 
02F0 
0352 
01DE 


VARIABLES 
DSBACKUP 1C01 EP 205A 
LP 2058 LS 1C56 
NUM512 1C51 NUM6 1C52 
PTB 014D SCREEN 04FA 
STOPFLAG 1401 TRANSTBL 0100 
NUMBERS 
BDOS 00A8 GCIRCLE 00A5 
GCOPY 00AB GGET 00A0 
GPAINT2 00AF GPOINT2 00A6 
GROLL 00A1 GSCREEN 00A2 
LIOBASE 7FFF MAXVAL 8000 
LABELS 
ABORT 04BF CHECKSTOP 0147 
CONT INUE 00D5 DUMM 021C 
GETPTB 00C3 ILIN 00C9 
LINE1 044A LP2 0050 
MKTR1 03A4 MKTR2 03EF 
MKTR6 0373 MKRTRI 042B 
OLIN2 0098 OLIN3 00A5 
0LIN7 04A2 PLOT 04FC 
PSORT32 011C PSORT3 0129 
REGLN 030B REGLN1 0548 
SCHLN3 035E SCHLN4 036C 
SQRT2 0331 SRCHLN 04B2 
: EP : EYE POINT 
EP DW 0 , 
: NO : NORMALIZED ORIGIN 
NO DW -320 , 
・ PTB : POINT TABLE DATA 
PTB DW 140, 

DW -350 。 

DW 280, 

DW 320 , 

DW 260 , 

DW こ =20 

DW 100. 

DW -30 , 

DW 200, 

DW 240 , 

DW 160. 
・ PMAX : (POINT NUMBER - 1) 

DB 10 


PMAX 


FNXB0 
LTB 

NUM8 
SPBACKUP 
VECTBACK 


GCLS 
GINIT 
GPSET 
GVIEW 
MINVAL 


CKLIN1 
FNARC 
ILIN1 
LPSETV 
MKTR3 
MKTRR 
OLIN4 
POINT 
PSORT4 
RETPOINT 
SCHLNR 
STOPKEY 


200, 


650 , 
650 , 
740 
780, 
900, 
920、 
850, 
780, 
770, 
800, 
800, 


UP 


250 


400 


180 
180 
200 
190 
200 
190 
380 
420 
400 
420 
500 


205B 
205C 
1C4F 
04F8 


00A3 
00A7 
00AC 
0000 
FFFE 


0182 
01E3 
00EA 
0078 
0400 
0370 
00A9 
0107 
013E 
0337 
01C9 
0432 


FNXB1 

MD 

PMAX 
SSBACKUP 


GCOLOR1 
GLINE 
GPUT 1 
HDV 
NIL 


CKLNR1 
FNDT 
ILIN2 
MAIN 
MKTR4 
MKTRR1 
OLIN5 
PSORT 
PSORT5S 
SCHLN1 
SQRT 
TRN3D2D 


ee 


ー 〇 Co つの の づ ょ ら の らい 一 


0155 
1C07 
0151 
285E 


00A4 
00A9 
00AD 
FFFF 


0181 
0272 
054A 
0185 
0404 
0086 
00AE 
010C 
04AC 
0343 
01D2 


POINTW 
STACKTOP 


GCOLOR2 
GPAINT1 
GPUT2 
INF 


CKLNR2 
FNX 
LINE 
MKLIN1 
MKTRS 
OLIN1 
OLIN6 
PSORT 1 
REBOOT 
SCHLN2 
SQRT 1 
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[用 語 解説 〕 


(アル ファ ベッ ト 順 ) 


は かず 人 ゆき: 
Basic Input Output Subroutine 第 2 章 を 参照 の こと 
9 、: 
Cathode Ray Tube モニ タデ ィ ス プレ イ の こと 
GDC: 
グラ フィ ッ ク ・ デ ィ ス プレ イ ・ コ ント ロー ラ 1. 3 参照 
10 ア ドレ ス : 


8086CPU の も つ IN, OUT の 機械 語 実行 時 に 使わ れる . メモ リア ドレ 
ス と は , 独立 に 存在 する . IO アド レス は 一 般 に 8 ビッ ト で 表わさ れ , 0 0 是 一 


0FF 日 で ある . 
| 

Logical Input Output 第 3 章 を 参照 の こと 
し ギヤ ・ 


Last Referenced Point. 最後 に 操作 し た 座標 を いう . 相対 座標 指定 (S TEP) 
は , この LP か ら の 相対 値 で ある . LP は ワー ルド 座標 を 評価 する た びに 更新 さ 
れる の で ,“(Wx1,Wy1) -STEP(Wx2,Wy2) " の 第 2 項 は 第 1 項 か ら の 相対 値 と な 
る . 各 BASIC コ マン ド の LP に 与え る 影響 に つい て は 4 . 0 を 参照 の こと . 
画面 上 で は LP は 1 点 だ が , 表現 方 法 で 2 種類 の L P が 存在 する . つま り , ワー 
ルド 座標 上 か , スク リー ン 座 標 上 か で ある . ワー クエ リア に は , この 2 種類 が 格 
納 さ れ て お り , 本 書 で は それ ぞ れ ワー ルド LP, スク リー ン LP と 呼ん で いる . 
VRAM: 

ビデ オ R AM を 参照 の こと 
VSYNC: 

垂直 同期 信号 期間 . 1 . 3 を 参照 の こと 


(あい うえ お 順 ) 

アト リピ ビュート : 

属性 . テキ スト 画面 で 。 色 を つけ た り , 点滅 , 反転 きせ た りす る 情報 . 1. 4 
を 参照 の こと 
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解 父 度 : 

1 画面 に 何 ド ッ ト 表 示 で きる か を いう . また は 分 解 能 . PC 一 9800 シ リー 
ズ で は 最高 6 4 0X4 00. 
グラ フィ ッ ク 画 面 : 

PC-980 0 シリ ー ズ で は , グラ フィ ッ ク を 表示 する 画面 と 文字 を 表示 する 
画面 と を 用 意 し , 前 者 を グラ フィ ッ ク 画 面 。 後者 を テキ スト 画面 と 呼ん え で いる . 
グラ フィ ッ ク 画 面 で は , 画面 の 1 ドッ ト を メモ リ の 1 ビッ ト に 対応 させ て いる 。. 
テキ スト 画面 で は , 文字 の コー ド が 画面 に は 書か れ て いて , 表示 の と き に キャ ラ 
クタ ジェ ネ レ ー タ と 呼ば れる フォ ント パタ ー ン の ROM を 参照 し リアルタイム 
で ドッ トバ パタ ー ン に 変換 され て 表示 され る . 1 . 1 参照 
座標 系 : 

PC-9800 シ リー ズ の Nss 一 BAS 1IC に は , ワー ルド 座標 系 . スク リー 
ン 座 標 系 . オリ ジ ナ ルス クリ ー ン 座標 系 の 3 つの 座標 系 が ある . ワー ルド 座標 系 
と は , 仮想 画面 と も 呼ば れ , 実際 の 画面 の ドッ ト 数 に 関係 な く 自 分 で 定義 で きる 
も の で , それ に 対し て , スク リー ン 座 標 系 . オリ ジ ナ ルス クリ ー ン 座標 系 は , 物 
理 的 に 決ま る も の で , 画面 の 1 ドッ ト が 1 単位 し な っ て いる . オリ ジ ナ ルス クリ 
ー ン 座標 系 で は , 常に 画面 の 左上 の 角 を (0 , 0) と する の に 対し て スク リー ン 
座標 系 で は , ビュ ー ボ ポート の 左上 の 角 を (0 . 0) と する . これ ら の 概念 は BI 
OS, LIO に は な く BAS1IC だ け に 存在 する BIOS, LIO 等 で 扱う 座 
標 は すべ て この オリ ジ ナ ルス クリ ー ン 座標 に 相当 する . 
スク リー ン LP: 

LP を 参照 の こと 
を を ゲラ フナ イッ タダ ・ 

PC-ー9800 シ リー ズ で は , PC 一 8000 シ リー ズ , PC 一 8800 シ リ 
ー ズ と 互換 性 を 持た せる た め , PC 一 8 0 0 1 で の グラ フィ ッ ク 機 能 を 実現 し た . 
これ を セミ グラ フィ ッ ク と 呼ぶ 、 これ は テキ スト 画面 で グラ フィ ッ ク を 行う も の 
で , 1 文字 分 の 面積 を 8 分 割 し て それ ぞ れ テキ スト 画面 の メモ リ の 1 ビッ ト に 対 
応 き せる . セミ グラ フィ ッ ク で は 最大 160X1 生 0 の グラ フィ ッ ク と な る . 
テキ スト 画面 : 


グラ フィ ッ ク 画 面 を 参照 の こと 
ドッ ト : 


パレ ッ ト レ ジス タ : 

1 . 2 を 参照 の こと 
バン ク 切 り 換 え : 

1 . 6 を 参照 の こと 

ビデ オ R AM: 

メモ リ の 内 容 が 画面 に 出力 され る 特別 の 機能 を 持っ た RAM. PCー9800 
シリ ー ズ で は テキ スト 用 と グラ フィ ッ ク 用 に それ ぞ れ 用 意 き れ て いる . 1. 1 を 
参照 の こと 
不揮発 性 メモ リ : 

電源 を 消し て も 内 容 が 消え な いよ うに 電池 で バッ クア ッ プ され て いる メモ リ . 
プレ ー ン : 

グラ フィ ッ ク RAM9 6 K バ イト を 3 つ に 分 け 。 その 1 つ を プレ ー ン と 呼ぶ . 
各 プ レー ン は 上 単色 の 1 画面 を 構成 し, 3 つ を 合成 する こと で カラ ー 8 人 色 を 表示 で 
きる. 
が リッ ププ フロップ: 

1 か 0 か どちら か の 状態 を 保持 し て お くも の , 1 ピッ ト の メモ リ と も いえ そる. 
リッ ン 党 ツケ ・ 

点 減 す る こと . 
マル チ プ レク サ : 

複数 の 入力 か ら 1 つ を 選択 し て 出力 する ハー ドウ ェ エア . 
ワー ルト し LP・ 

LP を 参照 の こと 
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